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SPIELER/GE SCHOß-GRAPHIK 


Hier zunächst einige Vorbemerkungen für Bandbenutzer 
und Besitzer von 16K-Maschinen: 


Für 16K-Benutzer: 

Al 1.e Programme auf diesem Band außer den letzten 2 , 
laufen auf 16k-Anlagen. Das letzte mit 16K lesbare 
Programm ist das mit dem ATARI LOGO als Beispiel für 
zwei Spieler nebeneinander. 


Vorbemerkung zum Begleittext: 

Die beigefügten Programme sind ohne diesen Text eher 
langweilig. Erst mit Erklärung ergeben diese Player 
Missile Graphiken einen Sinn. Der ideale Zus tand ist 
dann erreicht, wenn man seine ersten eigenen PM— 
Programme geschrieben hat. 


ALLGEMEINES : 

Zunächst machen wir uns daran, ein Spiel zu schreiben. 
Sehr beliebt sind Verfolgungsspiele, die gewöhnlich 
niedliche kleine Figuren und ein Labyrinth benutzen. 
Ein solches Programm soll hier erstellt werden, ein 
Spiel ähnlich dem bekannten PAG MAN. 

Zum Entwerfen der Hinte rgrundumriss e und Figuren gehört 
auch eine Portion Phantasie, Einige der jetzt 
entstehenden Gestalten werden in den weiteren 14 
Programmen und einigen Demos immer wieder benutz. Alle 
Beispiele kann man mit eigenen Ideen ergänzen und 
verändern. 


Was bedeutet--"Spieler" und "Geschoß"? 

Diese Bezeichnungen wurden aus dem ursprünglichen 
Anwendungsfa1d solcher Figuren übernommen, als nähmlich 
immer ein Schütze mitspielte, der per Kanone Geschosse 
abfeuerte. Inzwischen macht man alles mögliche mit 
diesen Elementen, hat aber die alten Bezeichnungen 
beibehalten. 


Programm 1: 

Der Neuling sollte es mehrfach genau ans eben und sich 
gedanklich später darauf beziehen können. 

Der Monitor erscheint in Beispiel 1 zuerst schwarz, 
weil der Bildprozessor anfangs abgeschaltet wurde, der 
sogenannte ANTIC-Ship, der zweierlei bewirkt: 


1- Er macht den Ablauf ca 30% schneller, 

2, Er . laßt den Hintergrund^.B. Sterne, plötzlich 

T l I? Z 1 " ll rt T tn a _ .. « H . ' 1 


als 


eine 


# ----- —tj ^ v* j ü t u e vJ L. I" : 

erscheinen, was eindrucksvoller ist 
allmähliche Aufzeichnung zu machen» 

Man bann diese Methode mit der 2» vergleichen, hei der 
ein Hintergrund langsam aufgebaut wird und dann nach 
Neigung wählen. Wenn man die 1, Version , mit ANTIC, 
vorzieht, geht man so vor; 

An dem Punkt, wo der Monitor ausgeblendet werden soll, 

programmiert man 

100 ON“FSEK(559) : POKE ,5 5 9,0 

300 e poä r 359^ON/ Um ? ‘ &iz ^ n des Hintergrundes) 

u^n er . Wird erklärt, welches die korrekte Codierung für 
um ist; man kann.aber jederzeit einfach die alten 
erte abstellen, wie oben geschehen. Die Zahl in 
Speicherplatz 559 muß später noch geändert werden, 
damit die PMG richtig läuft. 

Zwei Prozessoren; 


Es s t immfc , das der ATARI 2 Mic roprozes s oren besitzt.. 
Einer davon ist ANTIC, der die Aufgabe hat, das 
‘ ni torbiid aufzubauen. Er arbeitet in Text und in 
craphik. Wird er eingeaetzt, so nimmt er Maschinentakte 
A " spr ^‘; h ) die d em Hauptprozessor dann fehlen, 
e s ,i a 1 o lauft der Comp uter bei shgeschalteieo ANTIC , 


d.h. wenn 

schneller. 


der Bildschirm leer 


b 1 e 1 b t 


(559=0) 


hat 


Wir sind noch immer in Programm t. Der Computer nur 
jetzt ein.Bündel."Sterne" aufs Bild gebracht, einige in 

. ’ £ ’- Blge ln olau - Wei;n vir nähmlich einzelne Punkte 
in Graphikgang 8 ansprechen (FLOTTEN), kann der Monitor 
em -»laues oder ein rotes "Pixel" auf dem Schirm 
leuchten lassen. Diese kleinen Pixels in rot und blau 
kann man bei sehr genauem Sehen auf der Mattscheibe gut 
unterscheiden. 


Rintergrün.!yvn.kt e nennt man Spielfeld, 
Sie .Rede ist. Bei einem Blick auf die 


Diese 
PMG d i 

Taoelle im 3ASIC-Handbuch stellt man fest, 
meisten Graphikgänge 1-4 Farben zulassen. Die 
11 haben mehr. Doch in folgendem ist nu 
Rede . 


von 


wenn von 
Graphik- 
daß die 
Gange 9" 
vieren die 


von 

i »t 


Farbe 1 (Colorl) in Verbindung mit dem Aufzeichner 
Umrissen auf dem Bildschirm bildet das "Spielfeld 
entsprechend gilt das für Color 2 und Color 3. Das 4, 
piet e.. u i-t eigentlich die Farbe 0, die s ogenann t e 
Kit, tarsrund tarbe, die an, Anfang eines Graphikgangs 

.»n «.r. Farben sind stausrb.-r, und <ls( 

Umgang mit ihnen soll jetzt erklärt werden. 


Der Rand ist eine 
ihn auf die Farbe 
Monitor gleich aussieht 


Sache für sich,. Gewöhnlich setzt man 
des Hintergrundes, sodaß der gesamte 
Die Färb Sternchen reichen 


eigentlich nicht ganz bis zur Bildkante, da aber die 
Spieler sich überall hin bewegen können, erscheint das 
Spielfeld größer, wenn der Rand in derselben Farbe 
gehalten wird wie di@ Mitte. 

Endlich sind da auch noch zwei Spieler auf dem Bild. 
Sie bewegen sich. In der Horizontalen geht das mit 
BASIC sehr leicht. Beim lesen der Programmlistung 
stellt man fest, daß 5 Zeilen (400-440) genügen, um 
alle Ge rauche und Bewegungen zu steuern. 

Als nächstes wachst die Spielergröße an. Das wird 
ebenfalls durch einfaches Einfügen einer Zahl erreicht^ 
Erklärung weiter unten. 

Schließlich: 

Da3 Raumspiel endet mit dem Abfeuern einer Rakete von 
einem Raumschiff auf das andere, bis beide zerstört 
sind und das Spiel abgeschlossen ist. Wir haben also 
folgende Elemente benutzt: 


Einen S pie1e r ; 


ein Geschoß, den Hintergrund, die 


Spielfelder 0-3, einen Rand, und Größenvariationen, 


ist die Szene bereits komplett, jedoch 

raschen, daß wir noch nicht soweit , 

richtiges Spiel wie das Verfolgungsspiel 


S owe i t „ „ „ _ 
wir uns k1araschen, 

ein 

herzustellen 


müs s eil 
waren, 


Solche Programme werden in Maschinensprache mit 
speziellen Displayroutinen für sehr feine Graphiken 
geschrieben. Hier sollen nur alle Begriffe demonstriert 
werden, die später im Programm zu lernen sein werden. 


Fortgeschrittene können 
Spaß damit haben. So wie 
16K~Anlagen, was wir auch 


aas Spiel erweitern 
es hier steht, paßt 


anstrebte ri. 


e s 


und viel 
noch in 


Folgende Spielregeln gelten: 

Zuerst die Spielstäbe in die Steckdosen 1 und 2 
stecken. Jeder Spieler bewegt jetzt seine Figur und 
versucht, Punkte zu erzielen. Ein Punkt ist d ann 
erzielt, wenn I Spieler eine der beiden Energiepillen 
aufschluckt, die ah und zu erscheinen. 


5 Punkte gibt es, wenn man seinen Gegner schluckt. Das 
geschieht, wenn einer als erster die blaue Aufladezone 
erreicht, die in der Mitte des Labyrinthes liegt. Der 
betreffende Spieler wechselt dort die Farbe und 
einen Punkt machen sobald er den anderen berührti 
auch der andere Spieler die Aufladazone erreicht, 
sr _ Farbe des evsteren wieder 3 uf normalen 

bringen. 


jetzt 

Wenn 

kann 

Stand 



Wir fangen beim Punktstand 3 für beide an, um zu 
zeigen, daß nicht unbedingt bei 0 begonnen werden muß. 
Die Spielstrategie bes teh t im Ausnutzen leichter 
EinzelpunktChancen und gleichzeitigem Anzielen des 
großen Gewinns von 5 Punkten. 

So simple dies Spiel erscheint, so vollständig enthält 
es doch alle Elemente wirklicher Verfolgungsspiele. 
Alle nötigen Ergänzungen benötigen nur der Phantasie 
des Lernenden und natürlich der Geschwindigkeit. 
Verfolgungsspiele werden ln Maschinensprache 
geschrieben, dadurch erreichen sie hohe 
G e s chwindigkeit. 

Man achte jetzt genauer auf die Bewegungen der 
Spiele 1emente: 

Sie sind langsam, obwohl sie mit Maschinensprachen— 
Routinen programmiert sind ( die später erklärt 
werden). Das liegt daran, daß diese Routinen per BASIC- 
Sprache angerufen werden, 

Weiter fällt etwas auf, wenn die Spieler die 
Labyrinthwände berühren. 


Zunächst aber weiter zu Beispiel 3: 

Spielfelder. 

Es handelt sich um ein sehr einfaches Programm. Alles 
was nicht als Spieler oder Geschoß anzusehen ist, gilt 
als Spielfeld, wie oben schon gesagt. Spielfelder 
werden durch das FLOTTEN von Punkten durch PLOT und 
DRAW- Befehlen erzeugt bsw. durch direkte POKE-Befehla, 
die Daten in den Bildbereich des Spielers bringen, 
Vergl. hierzu das Handbuch. 

Durch drücken von 1 auf der Tastatur und Anschiießen 
eines Spielhebels in Stecker 1, kann man nun bei 
entsprechender Bewegung des Hebels die Farbe 1 aufs 
Bild bringen. Dann drückt man 2 und trägt Farbe 2 auf, 
entsprechend Farbe 3. Schließlich drückt man 0 und 
arbeitet mit Farbe 0. Diese Farbe erscheint als 
Löschvorgang, wird aber in Wirklichkeit auch- 
"aufgetragen”, und zwar als Hintergrundfarbe, die alles 
andere in Hintergrund verwandet t, 

Der Zweck der obigen Übung war es, die Spielfelder zu 
demonstrieren. Spielfeld 0 ist die Hintergrundfärbe, 
Spielfeld i ist alles, was in Farbe 1 erscheint, und so 
weite r, 

Seite 53 des BASIC-Reference-Manual(ACC Berlin) zeigt , 
welche Spielfelder bei welchen Graphikgängen möglich 
sind. 


Anmerkung zu den Farben: 


Alle Farben, die in den Beispielen benutzt werden, 
lassen sich ändern: 


Spielfeld färben 
Farbe Nr. 


0 
* 

1 

2 

3 

Rand - und 
Textfenster 

Der korrekte FOKE-Wert ist: 

COLOR * 256 + Helligkeit 

Wobei der Farbcode von 0-15 geht und die Helligkeit von 
0-14 (gerade Zahlen). 

Beispiel 4: 

(Spielfelddrucker): 

Natürlich braucht jedes Bildprogramm einen Hintergrund, 
außer wenn es ein reines Textprogramm ist, was aber bei 
PMG wohl nicht vorkomiut. Das bedeutet, daß wir einen 
bequemen Weg zum Aufbau von Feldern und ihrer 
Projektion suchen mü s s e n. 

Möchte man z „ B. ein Weltraumspiel mit Bergen, 
feindlichen Basen und einigen Schiffen zum Beschießen 
haben, so muß man diese Elemente auf den Monitor 
PLOTTEN, bevor das eigentliche Spiel beginnt. 

Man entwirft so etwas normalerweise auf 

Mi11imefcerpapier und rechnet jeden PLOT“Punkt aus. Da 
dies unbequem ist, haben wir einkleines Druckprogramm 
entworfen. 

Für Plactenbenutzer gibt es keine Prob lerne, Sie drücken 
bei Erscheinen des Beispiels 4 "L" und dann *'0", sodaß 
ein zuvor hier gespeichertes- Bild als Testbild 
erscheint. Dabei fällt ein blitzender Punkt auf, ein 
Läufer. 

Bavtdbenutzer nüs sen eine Zeichnung programmieren und 
sie absLallen, bevor die LOAD-Anwah1 funktioniert. Das 
ist eben der Punkt, der die Zeichnung bildet, wenn man 
ihn Über den Sfh? rm bewegt. 

Man hat die Wahl zwischen den Spielfeldern 0-3, Zuerst 
muß man i : e s t s t e 1 leii, wieviele Spielfelder der gewählte 
Graphikgang überhaupt zuläßt. Graphikgang 5 z.B. kann 
mit allen 4 Farben arbeiten, bei Gang 6 hat man nur 2 
zur Auswahl. 


POKE-Adresse 

710 

708 

709 

711 

712 




Man druckt die Nummer der SpieifeId färbe und benutzt 
dann die Läufertaste (nicht CTRL!), um den Läufer zu 
bewegen. Um zu löschen, PLOTTET man die 
Hintergrundfarbe, 0, ein. Jetzt zeichnet man ein 
Gebäude oder ein Raumschiff. Diese Zeichnung kann mit 
dem Editor auf zweierlei Weise abstellen: 

1. Man kann "S" drücken und dann "T" oder "D" für Band- 
bzw, Plattenaufnahme. Bandbenutzer sollten daran 
denken, den Anfangspunkt der Aufnahme auf das Band zu 
zeichnen. Besser ist es, ein freies Band zu verwenden. 
Plattenbenutzer finden ihr Programm immer unter dem 
selben Namen auf der Platte, PFDATA. Wenn man also die 
Zeichnungen aufheben mochte, benütze man den 
Namens 1 i s tenb efehl von DOS, um die Daten 
sinnvoller bezeichnen zu können. 

2. Will man die Zeichnung im Programm verwenden, 
braucht man nur eine einfache Sübroutine. In der 
Listung dieses Programms findet man eine sehr 
geschickte Lösung mit Strings. Daraus kann jeder Teile 
kopieren, der ein eigenes Programm schreiben will. Hier 
zeigen wir aber auch einen einfachen Weg zum PLOTTEN 
der Daten: 

Zuerst folgende Anmerkung: 

Jede Farbe eines Feldes muß separat aufgebracht werden. 
Außerdem soll der Umriß vielleicht auch extra 
erscheinen, zum Beispiel ein Bau mit etwas Bodenfläche. 

Dann werden eventuell andere Figuren wie Personen, 
Raumschiffe, Planeten gebraucht. Auch sie .sind extra zu 
PLQTTEN. 

Die Adressdaten für Umrisse bekommt man durch drücken 
von SELECT, danach wartet man ca 10 Sekunden. Im 
Textbereich des Monitors erscheinen jetzt 
Da t a s t a t einen t s , welche die ansprechbaren Bildpunkte 
bezeichnen. Die linke obere Ecke des Quadrats, die den 
Umriß begrenzen würde, wenn er in Farbe erschiene, hat 
1,1. Die Zahlen bedeuten X,Y gemäß dem Standart- 
Koordinatensys tem, das bei der ATARI gawöhnlich für 
Graphik benutzt wird. 


Um alle Daten pro Farbe zu sehen, muß man nach jedem 
Stop der Dateuprojektion START drücken. Wenn mehr als 
199 Punkte prc Farbe in einem Umriß getastet werden, 
meldet das Programm "zuviele Data", denn mehr als 199 
konnten wir nicht auf 32K unterbringen. 

Das Problem wird selten auftauchen. Wenn doch, tauscht 
man an einigen Stellen einer Figur die Farben aus. 

Die Numme r:i der Datastafcements sollten so ab ge ändert 
werden, daß sie ins übrige Programm passen. Man kann 
das so ordnen, daß etwa Bäume bei 5000 anfangen, 
Gebäude bei 0000 u.s.w. . Hier ein Beispiel, daß mit 
dem Spielfelddrucker ausgegeben werden kann: 


Dies sind keine wirklich verwendeten Daten, sie zeigen 
nur die Form, die solch ein Programm haben kann. 

Schlußbemerkung zum Spielfelddrucker i 

Er verwendet eine Gebrauchs-Displayliste, die man genau 
studieren sollte. Die Methode wird im ersten Abschnitt 
dieses Lernprogramms erläutert. 


FARBEN, Beispiel 5: 

Bei Bandbenutzung gelangt dieses Programm etwas 
eigenartig aufs Bild. Man drückt einfach RESET und 
tastet RUN, um den Monitor zu korrigieren. 

Es war zuvor schon vom Wechsel der Spiel£e1dfärbe die 
Rede (708-712). Folgendes Verfahren erlaubt die Auswahl 
der Farbe, ohne daß man die aus zuwählende Adresse 
zuerst ausrechnen mußte. Die aufgeführten POKES gelten 
allerdings für die Spielerfärben, die ja woanders 
untergebracht sind (704-707 und 711). Darüber hinaus 
ist es das Hauptanliegen des Beispiels, den Leser mit 
dem Spielern und Geschossen bekannt zu machen. Auf dem 
Bild erscheinen Farbstreifen, jeder Streifen 
representiert einen halben Spieler, die untere Hälfte 
ist abgeschaltet, damit man die Farbinformation sehen 
k ann. 

Diese Streifen werden nur abgebildet, damit die 
Spie1 erfarben für den Wechsel besser zu erkennen sind. 
Man kann die kleinen Färb vi ereck'e quer durch jeden 
Streifen erkennen. I-m nächsten Beispiel wählen wir 
best imrate Pixels aus urtd bauen einen brauchbaren Umriß 
auf. Denn jetzt wird die obere Hälfte jedes Spielers 
und Geschosses angeschaltet (alle 8 Pixels in Farbe, 
d.h. mit 1 programmiert) und die untere Hälfte des 
Streifens ist aus gescha1tet (d.h, 0 auf allen 8 
Pixeladressen). 

Nun fragt sich, was davon welcher Spieler ist, Spieler 
0 ist ganz links, Spieler 3 ganz rechts. Gans rechts 
stehen die entsprechenden Geschosse 0-3, zu jedem 
Spieier gehörend, 

Nun wrrd ein Spielstab in Steckdose 1 angeschlossen. 
Das erscheinende Sternchen wird über irgendeinen 
Spieler gerückt. 

Jetzt bewegt men den Hebel aufwärts, wenn man den 
Farbwert erhoben will, abwärts, wenn er verblassen 
soll. Das bedeutet, daß man z.B. einen schönen 
RotwertjZ.E. Code 45, in.irgend eines der Farbregister 
laden kann (P 0 K P,) , die von 704-712 gehen, und dadurch 
dies Rot für die intsprechende Spxelfigur bekommt. 

Sobald man eine gewünschte Spielerfarbe bekommen hat, 
schiebt man daa Sternchen zur nächsten Figur und 
verfährt dort entsprechend. Wenn alle 4 Spieler 
versorgt sind, setzt man die Hintergrundfarbe fest, 



indem man das Sternchen ganz nach rechts schiebt und 
den Abzughebel drückt» Um diese Änderungen dauerhaft zu 
machen, muß man sie ins Programm einfügen. 

Noch haben wir nicht über Farbregister für Geschosse 
gesprochen, denn es gibt sie nicht» Jedes Geschoss 
nimmt automatisch die Farbe des Spielers der gleichen 
Nummer an. Hier eine Übersicht ; 


REGISTER 

BENUTZT FÜR SPIELER 

7 04 

Spieler 0 

705 

Spieler 1 

706 

Spieler 2 

707 

Spieler 3 

7 1 1 

Spieler 4 

Dabei bedeutet 

Spieler 4 die Kombination aller 


Geschosse. Diese können bei Bedarf für einen 5. Spieler 
(Nr.4) zusammenge faßt werden. Das wird später noch 
erklärt. 

Nun wird SELECT gedrückt. Die Geschosse rücken zusammen 
und nehmen die Farbe an, die in Register 711 
eingetragen worden war. 

Um den Farbdrucker für Spieler 4 anzuwenden, bewegt man 
das Sternchen dorthin und benutzt den Abzugsknopf wie 
zuvor erklärt. Ein zweiter Druck auf SELECT würde den 
5. Spieler in separate Geschosse verwandeln» 

Die beschriebene Methode ist praktisch immer da, wo man 
Farben auswäh1en mochte. 

Welches ist der Spieler? 

Beim Ablauf des nächsten Beispiels, Nr. 6, erscheinen 2 
Roboter auf dem Bild. Man muß nun herausfinden, welches 
von beiden ein echter Spieler ist und welches nur durch 
FLOTTEN auf den Monitor gezeichnet wurde. 

Durch Augenschein kann man keinen Unterschied 
feststellen. Erst wenn man einen Spielhebel in Stecker 
I anschließt und die Figuren zu bewegen versucht, 
stellt sich heraus, daß der Spieler sich ohne Druck auf 
den Abzugsknopf bewegt, die Spielfeldfigur Bei Druck 
auf den Abzugknopf, Genauer gesagt, wird der Spieler 
durch eine kleine Routine in Maschinensprache bewegt. 

Man wird später sehen, daß man sogar mit BASIC einen 
Spieler ziehralich schnell in dar Vertikalen und 
unmittelbar in der Horizontalen bewegen kann. 





Bei ti irsem. Progra tu m ist es interessaat, die 5’arbe im 
P t o g r an«! t. e I I des bet r e f f a n&e n Sp ieie s: s a-j a n d e r n ( PO 1 KE 
I 04 , Ho»..) und d &nn d er* Sp I eie r g enau Über die 
Sp I k 1 f e 1 d r i gu r au n e t zct rs . Man e rkenn £ er s i dann r ieh t ig 
d i e Vors Liga der echten SpielerWirr c!a man 2 g e p 1 o 11 ei: e 
Umrisse übereinander schieben und sie dann ve.grü.cken , 
so müßte man beide neu zeichnen, um die hin fcsrl ss eenen 
I, ö e h e r a ti f z u f u 11 a n „ D i c s Beispiel s o 11 1 e. einige 
H i nwe i 3 e z um Einsat s der Spiele r s t r e 1 fen. gehen. Statt 
des Roboters hatte man natür1ich ande re Figuren 
aurbauen können, die in die begrenzte Breite des 
S p i e 1 -2 r Streitens passen. 

S p a t ar wird gezeigt, wie man breitere Spieler 
kon3 t r d i a ren kann. J eta t geh. t es zunächst generell um 
o.en Aufbau einet Spielers .» - 

Mit dem nächsten Progran beginnt der technische Teil 
des Kurses. Zi.ie.rat weise n wir darauf hin, daß das 
latste Bild. noch auf dem Monitor steht. Das kommt 
einfach daher, daß Spielfelder, die einma1 mit PLOT 
eingerichtet wurden, solange stehen bleiben, bis man 
sie durch neue PLOT-Dafcen. übsrsehreibt oder bis man 
einen anderen Gränhikgang abruft. 

Wir luden das folgende Programm , während, der Roboter 
(Spielfeld) noch auf dem Schi na war, sodaö er auch bei. 
Beginn dieses Beispiels noch bleibt. Bas geht ähnlich 
wi e beim, addieren von 3 2 zu einem Grc oh :l kr.br uf (Vsrg1, 
BASIC- H a n d. b u c h ) » 

Daraus ergeben sich 4 interessante Möglichfceiteu. Man 
kann Hinfergründe aiit cen einen Programm aufbauen und 
dann die Ha.uptprogramtuschleife separat einladen» 
D a d ei r oh pass e n ü r o fs p r o g r aiarae i. n k leisere 

Speie ha r'berei che . Auch Sp i elar bl e iben auf dem 
B i 1 ä s c h i ns. ln dies cm. Fall haben wir die Sy e i le ruiar i ß e 
1 5, d O Ci 'h ^ £ ti D (5 T ,i 

Wieder ist Spiel stab 1 anzuschlieSea. Mit ihm 
dar Umriß auf dein Monitor in jede Richtung 
?.«ch ciagonal. Diese Rou 1 1 ne ist viulse 11ig, 
a 11 c a folge n d« rj. Gr Eilt d lege n 

s r k 1 ä r £ : 

1 . wie *aan &ineu Spieler aufbtu.t, 

2.. wie man diese Figur vertikal bewegt, 

3 ■. w:.*. a r.* a u sie horizontal bewegt» 

D e s B a r. s p ie 1 kaai; in jedes beliebige Programm kopiert 
wei‘dr n , gegebe.n n nf a 11 s nnter Modif ikation nach 

j ewe11. igetn bedarf. Man sollte es cuf einem sepe rst en 
B a n d c o e r einer Diskette auf h e w a h r s n 

Das vc 11 s f findig e BASIC -Pr ogr ataia für dieses Beispiel 
b e f in. du c s ich am Geh 1 ulä der vorliegenden Text e . W ir 
we r h e i; d i « Baup t pu nic te hier b e s p r e c h e.n . 


1 a ß t s i c h 
bewegen, 
wei1 sie 



Das Programm beginn t damit, daß es auf Zeile 140 
springt, um einige stete notwendige 
3 t andard verbe re i tungen durchzuführen. Zeile 160 setzt,, 
wie man leicht erkennt, die Farbe von Spieler 0, öle 
wir für den späteren Umriß (n.B. Raumschiff) benutzen 
wollen. 


Die Zeilen 170-190 sehen so aus ; 

170 PMB - P E E K C106> —16 
ISO PORE 54279, PMB 
190 PMBASB *> PKB *256 

Sie reservieren Platz für Spieler /und Ge s choßumr i. s b e , 
die noch 'einzufügen sind. Hierüber kann an dieser 
Stelle nicht erschöpfend gesprochen werden, Spieler und 
Geschosse werden an f dem ATARI mit Hilfe der 
sogenannten DMA (Direkte Speicheradressierung) 
konstruiert. Dieser exisiert auf allen größeren 
Computern (bei APPLE nichts). Das bedeutet einfach, daß 
bei Einschaltung der DMA vom Computer alle 
Informationen , die er in einen Speicherbereich 
beginnend bei PMBASS vorfindet, auf den Monitor 
gebracht werden. 

Diese Inform« tioaen werden horizontal (in Richtung X} 
angeordnet, entsprechend den Werten in den horizontalen 
Registern (53248- 53255). Ihre Ausdehnung in der X- 
Richtung wird durch die in den Größenrsgistern (53256- 
53260) gespeicherten Werte gesteuert (s.unten), Ihre 
Ausdehnung in Richtung Y wird durch 2 Faktoren 
kontrolliert. Der 1 ist, wievei1 P ixel s für ihr an 
Umriß benutzt werden. Man muß wiseu, daß Spieler so 
gebildet werden können, daß jede Zahl im Speicher als 1 
Pixel erscheint oder so, daß sie als 2 Pixels erscheint 
(Sintelseilen-Auflös ung bzw. Boppelsailen-Auf Lösung). 
Ihre Anordnung auf dem Monitor in der Pichfcung Y hängt 
einfach ■ davon an. an welcher Stelle im Streifen man 
Pixels anschaltet. Das alles wird noch ei nun a X aa E an ä 
der Beispiele e rk 1 c, t 

Jetzt betrachten wir wieder die Progr amtase i len 170-190. 
Zeile 170 übernimmt den Wert von Stelle 106, der 
Stelle, die ganz oben im Speich er tei1 des Benutzer e 
steht (als Anzahl von 256 - Byte-SaIteu), und 

subferahicr t von ihm die j ewei 1 s vom Benutzer 
vcrbesti ernte Anzahl von Seiten. Diese Anzahl wir dann 
im Register 542 7 9 eingespeieher £ (POKE). Dieses gibt 
an, wo die Spie 1 erdaten begiimen. 

Schl.isfil ich übernimsnt Zeile 190 die PMG in Form von 
Seitenanza'rilen und wandelt sie um in eine reguläre 
Speicheradresse, PMBASS. Diese Zahl werden wir oft 
benutz en. 



Die von uns subtrahierte Zahl ist 16, doch ändert sich 
das je den benutzten Graphikgängen* Die Wahl des zu 
subtrahierenden Wertes wird in Beispiel 9 erklärt* 

Als nächstes bringen wir auf Zeile 200 eine 3 in 53277, 
Dies Register nennt sich GRACTL; hierhin eine 1 zu 
bringen (nur für Geschossejbzw. eine 3 (Spieler und 
Geschosse) ist ein Schritt zum Einschalten der oben 
erwähnten DMA. 

Zeile 210 .nennt die anfänglichen X- und Y~ Positionen, 
auf denen der Spieler im Bild erscheinen soll. In Zeile 
220 wird der Spieler 0 auf normale Position gerückt, 
Tiühmlich 0 * 5 3 2 5 6 hätte ohnehin enthalten, doch da wir 
viele Programme hintereinander laufen lassen, heben wir 
zur Sicherheit auf 0 geprüft. 


Folgende Auswahl ist hinsichtlich der Größe gegeben; 


POKE-Be feh 1 Spie1ergrüße 

mit 


0 

1 

3 


normale Größe 
doppelte Größe 
vierfache Große 


Folgende Register stehen zur Steuerung der Spieler-und 
Gesehossgroße zur Verfügung; 

(Man setzt in sie die entsprechenden Werte aus der 
obigen Tafel): 


REGISTER 


PARAMETER 


53256 
5 325 7 
5 32 5 S 

53259 

53260 


Größe Spieler 0 
Größe Spieler 1 
Große Spieler 2 
Große Spieler 3 
Größe a1le r Geschosse 


Um die Geschossgröße zu best iinsueh, muß man e twas 
rechnen; 

Man sucht eunfach die gewünschte Größe für jedes 
Geschoss von der unten abgehildeten Übersicht aus und 
addiert dann die Zahl von allen Geschossen, die man 
benutzen will. Schließlich lad taan die Sußune in 
Register 53260 . Will man z.B. einer, normalen 
Geschos s du r chma s a er f ür 0, doppeltes Geschoss 1, 
vierfaches Geschoss 2 und doppeltes Geschoes 3, so muß 
man CM-4-I-48 + 64 =116 in 53260 laden. Wenn man nur 

normales Missile 0 und vierfaches M.3 will, ergibt sich 
192 und so hü ifcar, 


GESCHOSS' (M) 


NO EM AI, 


DOPPELT 


VIERFACH 


0 0 13 

1 0 4 12 

2 0 16 48 

3 0 64 192 

Zelle 230 überträgt NULLEN in den Bereich für die 
Spielerdaten. Dadurch wird zuerst einmal der 
Spieleratrei£en weggelöscht. Das erscheint zunächst 
überflüssig, ist aber doch notwendig, wie man später 
sehen wird. 

Da das Löschungsstafcement jedoch einige Sekunden 
verbraucht, sollte man es ganz vorne ine Programm 
bringen, bevor der Haupt teil anfängt, Dias wird in 
späteren Beispielen gezeigt. 

Für unser jetziges Beispiel' braucht man lediglich 
PMBASE + 1024 und FMBÄSE + 1280 zu löschen. 


Die Ubersicht mit der Überschrift Einzelzeilen- 
Auflösung beginnt oben mit dem Kasten "oberes 
Speicherende"? von dort fährt man eine bstimmte Zahl 
von Seiten, die von dam Wert in 106 subtrahiert worden 
sind, nach unten. Damit gelangt man zum unteren Ende 
der TAFEL. Diese Rechnung wurde in den Zeilen 170-190 
durchgeführt. Sie wird in Beispiel 5 noch einmal 
erklärt. 

Nachdem man PMEASE gesetzt hat, geht man im Speicher 
nach oben zu PMBASE + 7 68 , Die näch« ten 256 Bytes sind 
der Streifen, der die Geschosse enthält. Wenn 
irgendwelche Register in diesem Speicher bei 1 nieht auf 
0 stehen und wann die Vorbereitungspokes zum Anschalten 
der DMA durchgerührt wurden, dann leuchten diese NICHT- 
NULL-WERTE im Bild auf, und zwar mit den Farbwerten, 
die 704 gespeichert hat, 

Um^ den Umriß auf dem Monitor auf—und abzubewegen, 
bringt man^jetzt Nicht-Nnll~3ytns nach oben oder unten 
in den Speicherstreifen. 

Hat man s.B* PMBASE bei 30000 plaziert, dann erscheinen 
alle Nie h t-N u11-3 y t e s bei PMBASE +1030 (31030) am 
oberen Ende des Bildschirms, die selben Werte bei 
PMBASE +■ 1200 erscheinen nahe dam unteren Ende, 

Entsprechend ciieser Logik kann man eich vorstellen, was 
passiert, wenn man Zeilenwerte in PMBASE + 1400 
transportiert. Man hätte jetzt ein Umriß projeziert, 
der innerhalb von Spieler 1 auffcauchen würde, falls die 
DMA arbeitet. Davon zunächst nichts weiter. 


Die Zeilen 240-300 bringen den Umriß in den Speicher, 
so wie es oben besprochen wurde. Wichtig ist das 
Verständnis der Zeilen 250-300 , die so aus sehen: 

250 FOR 1= PMSASE +1024+Y TO PMBASE +1280 

260 READ B: IF B = 0 THEN 310 

270 GNT-CNT+1 

280 POKE I,B 

290 NEXT 1 

300 DATA 8,60,126,195,60,24,126,16,0,0 

Der Umriß wird mit einem Abstand von "Y" in den 
Speicher gebracht, d.h, mit einem A.bstand von Y vom 
oberen Bi1drand. 

Falls Y-Q, steht die Figur ganz oben an der Kante. Ein 
Wert von Y=252 setzt sie nach ganz unten, da der Umriß 
8 Ziffern belegt, die in den 256 Bytes langen Streifen 
des Speichers passen müssen. Auf einigen weiteren 
Zeilen wellen wir ausrechen, wohin die Figur gesetzt 
werden soll und dann diese Routine benutzen, um sie an 
den richtigen Platz zu bringen. 

Um eine eigene Figur zu konstruieren, muß man die 
Kästchen ausfüllen,, die der Figur entsprechen. Um 
daraus die "Summe" zu ermitteln, geht man einfsach 
durch jede Reihe und addiert die Werte aller 
ausgefüllten Kästchens. Wenn man diese Zahlen in den 
richtigen Speicherbereich einträgt (PQKE) , dann 
erscheint der gewünschte Umriß auf dem Schirm. 


Zurück zum Programmcode: 

Zeile 310 schaltet schleißli.ch den Spieler ein. Der 
korrekte Wert wird durch Addition der gewünschten 
Elemente aus folgender Liste erreicht: 

DMACTL (559) 


FÜR 


ADDIERE 

Breites Spielfeld 

3* 

ALTANATIV 

Standardspielfeld 

2* 

ALTANATIV 

Schmal es Spielfeld 

1* 

ALTANATIV 

Ge schoss-DMA ein 

4 


Spieler D MA ein 

8 


Doppelz ei1 an-Auf 1ö sung 

0* 

ALTAKATIV 

Einzelteilen- Au f 18 s u n g 

16* 

ALTANATIV 

Haupt-DMA e.in 

32 



In dies em Fa 11 wollen wir eine DMA für 

S t a n d a r d s pie1 f a 1 d (2) + für Geschoss (4) und für 

Spe i. 1 e r ( 8 ) + der Haup t-DMA (32) sowie Einzelzeilen 
Auflösung haben. Das ergibt eine Summe von 
2+4+8+32+16=62. Dashelb der POKE 559.62. 


Damit ist die Aufbereitung der Spielerfiguren beendet. 
Dieselbe Vorbereitungcodierung bann für die meisten 
PMG-Programme benutzt werden. Man muß nur die wenigen 
Änderungen für Auflösung und Spielfeldgröße 
berücksichtigen. 

Einselzeilen-und Doppelzeilen-Auf 1ösung wird noch in 
Beispiel 10 besprochen. 

Das Programm verzweigt nun auf die Hauptschleife auf 
Zeile 50, wo Spielstab 0 abgefragt wird. Die Zeilen 60 
und 70 erhöhen X und T über den ursprünglichen Stand 
bei Zeile 210 hinaus. Für das Programm bleibt jetzt nur 
noch, in die Richtungen X und Y zu gehen. Bei X geht 
das leicht, weil die ATARI eingebaute Lageregister für 
die X - Achse hat. Auf Zeile 110 wird einfach der neue 
X-Wert in das entsprechende Register (53248) geladen. 

Es gibt folgende Register für die X-Achse: 


Regis ternummer 


Geschoss/Spieler* 


53248 - MO 

53249 Ml 

53250 M2 

53251 M3 

53252 PO 

53253 PI 

53254 P? 

53255 P3 


* MO bezieht sich auf Geschoß 0, P1 auf Spieler 

u . s.w. 


Um in der Y-Richtung zu wandern, müssen wir wir ähnlich 
Vorgehen wie bei der Verschiebung des Spielfeld- 
Robotors in Beispiel 6. Zum Glück handelt es sich nicht 
um derart viele Elemente im Speicher. Der Robotor hatte 
üoer 100 Datenpunkte. Für unsere Spieler übertragen wir 
lediglich 8 Zahlen in den Speicher, nähmlich auf den 
Zeilen 340 - 480. Zuerst, in Zeile 350, wird der 
laufende Wert von Y mit dem letzten Y-Wert verglichen. 
Sind beide gleich, kehrt man einfach zurück. Zeile 360 
besagt "Wenn Y jetzt größer ist als letztes Mal, 
springe auf die Aufwar13rout ine bei 430, andernfalls 
bewege nach unten." - 

Y bewirkt bei Anwachsen nähmlich eine Abwärtsbewegung 
auf dem Bild (vergl. Seite 47 des BASIC-Handbuchs). 

Beide Routinen für die Auf- und die Abwärtsbewegung 
ähneln der ursprünglich verwandten Routine zum 
Einträgen des Umrisses in den Speicher. Wir versetzen 
die selbe Figur einfach um eine Speicherstelle nach 
unten oder oben. 



Beachten 


Wenn man die Zeichnung bewegt, kommen 7 von 8 Werten, 
die zuvor im Speicher waren, an vorher schon besetzte 
Stellen, und nur eine wird durch POKE auf eine vorher 
UNBESETZTE Position gebracht. 

Der letzte Wert wird unverändert stehen bleiben, wenn 
man ihn nicht durch POKE löschen würde„ Das geschieht 
auf Zeile 420 oder 480. In dem Fall ließe jede Bewegung 
eine breite Spur hinter sich Diese Biegungen sollte man 
ausreichend üben, damit alles .klar wird. 

Nun zu den Paddels; 

Es bleibt zunächst zu erklären, warum die Bewegung auf 
der X-Achse so lang, 1 ?am verlief: 

Die Spielstäbe, die in Verbindung mit dem Programmcode 
benutzt sind, erlauben nur Bewegungen von jewei1s einem 
Schritt in Richtung X. Paddels dagegen können in einem 
Zuge von 0-228 schalten. Man' sollte also jetzt ei.nen 
Paddel anschließen und noch einmal die Bewegung üben; 
sie verläuft jetzt in Sprüngen. 

Beispiels: 

Mondlandung 

Es handelt sich um ein einfaches Progran, das die 
selbe Grundroutine hat wie Beispiel 7, jedoch mehr wie 
ein Spiel abläuft. 

3 Dinge kann man aus Beispiel 8 lernen,* 

1. J Es ergibt sich hier ein. Streifen von flackernden 
Resten auf dem Bild, wenn das Programm noch in der 
Startpbase ist. Das kommt daher, daß die DM (wie oben 
besprochen) nur teilweise angeschaltet ist. Sobald alle 
Vorbereitungen abgeschlossen sind, erscheint jedoch die 
genaue Figuration. 

2. Man sieht aus dem im Anhang wie dergegebenden 
Programm dessen genaue Struktur. Diese Struktur sollte 
jeder auch bei eigenen Programmen bilden. Das Programm 
ver zwoig t auf verschiedene Subroutinen, die A) die 
Berge zeichnen, B) die Sterne zeichnen, 


3. Spieler 0 konstruieren, wie in der oben erwähnten 
Schleife, P '* die eigentliche Aktion durchführen 
(Bewegung und Abschuß) 

Zu beachten ist auch ist auch der Einsatz von 
Be gl e i f t ör.en in der Haup t schl e i f e , deren 
Programm i er urig ke i ne Schwie rigkei teil machen dürfte. 

Dieser einfache Aufbau wird in den meisten Spielen 
diesen Typs verwendet. Zum Schluß erklären wir noch 2 
Verfahren in Maschinensprache, die im Progr amm 
enthalten sind. Beide sind kurz und können so leicht in 
andere Programme übernommen werden. 


Das erste dient zum Bewegen von Spieler 0 allein. Es 
fragt Spielhebel 0 ab und bewegt die Daten entsprechend 
i” Streifsn d es Spielers 0. Man muß hierfür Spieler mit 
Einzel-Zeilen-Auflösung verwenden, deren Umriß also bei 
JrMBASE -r- 1024 bis PMBASE +• 1 2 79 abgestellt ist. Die 

enötigten ^ Programme eilen kopiert man am besten mit 
LIST auf einen separaten Datenträger und nimmt sie per 
ENTER bei Bedarf ins Programm, Vor dem Kopieren sollte 

man nicht vergessen, die Übrigen Pr ogr amra t ei le zu 
röschen. 


Beispiel 9; 

Ein dumme s Programm, 

Beim Abspielen dieses Beispiels trifft man den schon 
bekannten Roboter wieder an. Wenn man ihn jedoch bewegt 
(mit Hilfe derselben Routine in Maschinensprache wie 
oben gezeigt), so bleibt "O" auf dem Bild zurück. 

Dies soll. im Zusammenhang mit dem Aufbau des 
.layer/Missile- Bereichs im Speicher erklärt werden. 

Dazu ist die Programmlistung für Beispiel 9 im Anhang 
zu betrachten und die Methode, mit deren Hilfe wir den 
Wert für PMBASE erir.i.ttelten: 

100 PMBASE ~(PEEK(106)-16)*256 


Auf Seite 4b des BASXC-Handbuchs steht eine Tafel, aus 
der man die Menge von Speicherplätzen (RAM) ersieht, 
die jeder Graphikgang benötigt. Wie die Zeichnung 
zeigt, muß man.vermeiden, das die Daten der Spieler und 
Geschosse die übrigen Projektionsdaten verdecken. Erst 
recht muß man vermeiden, daß sie die DisplayÜste 
u eischraiben, wie es den Bandbenutzern bei dem 

»wew<i< e 18 ^ 6 ^ J _ P ass 3 *- e? " 11 e ■ So 1 bald dieses Programm durch 
KübET ^ neu anlief, wurden die Displaylisteninhalte 


Bei, uns erem 
Spiel erdeten, 
Maschinensprache 
werden. 


jetzigen Beispie 
wie sie durch 
innerhalb des Sp1 


sieht man die 
die Routine in 
ilerstreifens bewegt 


Man kann sich hier auch den Begriff "Umbruch" (WEAP 
AROUND)Jclar machen, wenn man den Spieler so lange nach 
oben ruckt, bis er am unteren Bildrand wieder zurück 
kommt,. Das funktioniert auch in der Horizontalen. Auch 
aie laten, die direkt auf den Monitor geschrieben 
werden, können auf diese Weise umlaufen. 


Bei 
daß 
n a c h 


der früheren Erklärung dieser Methode sagten wir, 
aer .ie r t 16 sich in endete Werte ändern kann j e 
Smzelf al 1, War um ? ~ 


Die hier vorliegende Programm!is tung enthalt nur den 
Wert 16 als abzuziehende Spei che rp1a tzmenge, weil der 
hier benutzte Graphikgang 1 K oder.weniger benötigt» 

Ander« Beispiele dagegen, etwa Nr. 8, Poken die 
Speichern: enge um 40 Seiten zurück, und zwar deshalb, 
weil dort Gang 8 eingesetzt wird, der mehr 
Speicherplatz braucht. 


Der einfachste Weg, Daten am falschen Ort zu vermeiden, 
besteht in der Benutzung der fogenden Übersicht. 
Spieler mit Einzelzeilenauflösung müsen stets an einer 
"IK-Grenze" beginnen, d.h. man muß von dem Wert in 106 
8,16,24,32 oder andere Vielfache von 8 abzieheu. Eine 
"SEITE” ist 256 Bytes groß (1/4 K). Handelt es sich um 
Spieler mit zweizeiliger Auflösung, so müssen deren 
Daten ebenfalls an einer 1K - Grenze anfangen, in 
diesem Fall wird 4,8,12,16 u.s.w. aus 106 abgezogen. 

Die Boppelzeilen -- Auflösung: 

Beispiel 10: 

Dies ebenfalls einfache Beispiel bringt das SQÜIGLIY 
MONSTER ins Spiel. Es zeigt sich in 2 Größen. Die 
kleinere hat Einzelzeiisnauflösung. Schlicht gesagt, 
wird jeder Wert iin Datenbereich des Spielers als eine 
Zeile auf s Bild gebracht. 

Der Datenbereich hat 256 Bytes, was mehr alsgenug ist, 
um den Monitor absudecken. Bei genauem hinsehen kann 
man die einzelnen Pixels auf der Mattscheibe erkennen. 

Die 2. Art, die Spieler und Geschosse zu konstruieren, 
ist die Doppelzeilenauflösung. Doppelzeilentechnik 
benutzt nur 128 Bytes pro Spiele::, und die Maschine 
bringt für jeden im Datenbereich des Speichers 2 Zeilen 
aufs Bild, Die projezierte Figur erscheint daher 
dicker. Außerdem verbraucht man auf diese Weise weniger 
Platz im FM ~ Bereich. 

Zum Abrufen des einzeiligen Spielers drückt man auf 
SELECT, zum Abrufen des zweizei J. i gen auf den START- 
Knopf. 

Doppe1zeilenspie1 er werden ähnlich aufgebaut wie 
einzeilige, doch mit folgenden Unterschieden: 

1» Anstatt 16 zu der nach 559 zu bringenden Summe zu 
addieren, addiert man 0. Der sich ergebende Wert sagt 
der Maschine, wo die Daten Pro Spieler und Geschoß 
stehen. Unser Beispiel wechselt zwischen den beiden 
Auflösungen durch diesen einen PORE hin und her. 

2 . Anc tatt den Spielerumriß mit P0KE in FM3ASE + 7 68 
bis PMBASE 2048 zu bringen wie oben, plaziert man jetzt 
die Daten in PMBASE !- 384 bis PMBASE + 1024. 



Beispiel, II: 


Es bleibt nun nicht mehr viel tu lernen, bevor das Pac 

bewegt ^erden"nl t ?" d i- Ch f' 5886 ” Spielerumriß nun 

g werden soh. Hierzu Beispiel. 11 anlaufen lassen! 


Man sieht, daß der 
gelöscht wird und das 

i.assen sich 2 besser erklären! 


sich die 
des Maul 
können. Doch 


Speicherbereich für den Umriß 
dann der Umriß erscheint, der 
ein Pac Man aussieht. Jetzt bewegt 

imannrt ^ ^ * _i_ x._ . . 

macht 
hi e ß e n 
zeichnen 


Wenn man ein weiteres 
leicht geöffnet 


ist 


Element zufügt, dessen Maul 
wird der Ablauf flüssiger. 


nur 


Um die beiden 


nur ein „„ iÜ.fSh“ in o B f»fS“”« sehen, braucht man 
dann tvar 2%o?hÜ f ^ elheb *l *« geb«. Man sieht 
»« ist „ie fol^^ograLi™" "" ei ” e " 

be trägt ^die ^th ¥ ^ J” 

?olge e n G 1ol E s r “n h h “ IS? SSl.’« 

eigen FUKES m das Horizontale Register und in d*n 

■ ni h^i^LerT^ 2 ! Mai ‘ mUß d£e 

nicht in einer bestimmten Reihenfolge aktivieren, 
eine ‘ 150 brin ? en lediglich die Daten für 

««« ™n eh ::. d :: 
x er iV'ütv ’zs'VAi* !ir*° b r u d ' ^ 

genauer^verfolgen Ü 

Um einen „eiteren Spieler au bauen, tut man folgendes: 

1. Man gibt mit POKE die Daten f;jv- 

Spr e 1 e ruinr i iJ in den richtigen ^ 

(' mür„?chr tt e S,,,ii "?; hte GräSe in das GrBgenregi.ter 
„irdK Se " 1 ' " el1 sutom.tisca 0 dort hin gÜrückt 

Register nl'L'!' .horizontale Position (X) in das 
di’f ifl !“ ‘ ! l e dorizontale. Vergißt man das, rutscht 

auBerhalheerSudi, 1 ? 0 '’ < "‘ f ?< ’* iCi< >» °> *»«• Unk. 


»™r * 

:n,ü r ij.ir sr*~ 

einzige aussehen, die sich bewegt. 


wie 


hin 

eine 


Wenn man an dag Rofeo terbe ispiel ztirück denkt, bei dem 
gefragt wurde, weiches von den beiden Figuren der 
Spieler ist, so wird klar, wie praktisch es ist, diese 
Spielertechnilt einzusetzen. Mit Hilfe von BASIC würde 
das Setzen und Löschen der Figuren nur sehr langsam von 
statten gehen, 


PRIORITÄT UND KOLLISION 
Beispiel 12: 

Beispiel 12 nimm t den An fang eines Spieles wieder auf, 
daß schon in 11 enthalten war. Es schließt zusätzlich 
die Kollision ein, und auch sogenannte Energiepillen, 
die von einem Tier gefressen werden. Hinzu kommt der 
Effekt, daß die Figuren bei Überschreiten der "Wände" 
des Tunnels so erscheinen, als stünden Sie VOR der 
Wand. Am Ende des Tunnels erscheint die Figur jeweils 
innerhalb oder hinter den Wänden. Diese Wirkungen 
werden durch be3timmte Setzungen von Prioritäten 
erzielt, sodaß sich einige Farben anders verhalten als 
andere. 

Die meisten Teile des Programms unterscheiden sich 
nicht von früheren Programmstrukturen. Es gilt 
überhaupt, daß man schon durch geringfügige Änderungen 
des Programms ganz neue Effekte erzielen kann. 

Zeile 10 setzt alle Pos i t ion.s r egi s ter für die 
Horizontale auf 0. Das würde für unser Programm 12 
eigentlich nicht gebraucht, stellt aber sicher, daß 
alle früheren Spieler vom Bild verschwinden. Denn das 
ist mit dem Laden eines neuen Programms keineswegs 
garantiert. 

Die Zeilen 47-57 setzen 3 verschiedene Teile auf den 
Hintergrund. 

Das 1„ sind die sogenannten Knergiepillen, also kleine 
Flecken, die der PAG MAN auffrißt. Sie werden in Farbe 
1 geplottet (Register 708). Dann in den Zeilen 50 und 
52, werden die rechteckigen Felder, die sogenannten PAG 
MAN -• Tunnels gezeichnet, undzwar in Farbe 2. 

Die Zeilen 55-57 zeichnen die Hindernisse, die der 
Figur den Weg versperren, natürlich in Farbe 3» 

Die Tatsache, daß die verschiedenen Elemente in 
verschiedenen Farben erscheinen, macht das Spiel 
kritisch. Der ATARI hat für diese Situation sogenannte 
Kollisionsregister, die man darauf hin ab fragen kann, 
ob ein Elernent (z.B. ein Spieler) an ein anderes 
gestoßen ist (z.ii. an eine Wand in Farbe 1). 

Weiter,: auf Zeile 205, lernen wir einen neuen Trick 
kennen; 



Es gibt eine Speicherstelle mit der Bezeichnung HITCLR, 
bei 53273. Wenn in dieses Register eine 1 geladen wird, 
schaltet es die anderen Kolüsionregister auf 0. 
Unterlaßt man diese Rucks ehal tung, so bleiben die. 
Kollisionregister auf dem jeweils durch Kollision 
gesetzten Wert stehen. Kollisionsregister und andere 
Register sind in der Speicher Lisfcung zu haben. (ACC 
Berlin) 


Es sind nicht wenige, ihr Gebrauch bietet jedoch keine 
Probleme. Man beginnt einfach bei. dem Register, daß zu 
dem gerade ins Auge gefaßten Objekt gehört. In diesem 
Fall wollen wir wissen, ob die Figur des Spielers 0 mit 
dem Spielfeld zusammengestoßen ist; 


Das bedeutet, wir müssen den Wert in 53252 abfragen, 
was auf Zeile 242 auch geschieht. 

Wenn das Register nicht auf 0 steht, ist ein 
Zusammenstoß vorgekommen und wir verzweigen auf die 
Subroutine von Zeile 1000. 

Bei 1Ö00--1005 wi rd abgefragt, welchen Inhhalt das 
Kollisionsregister hat. Das es nicht auf 0 ist, ist 
schon bekannt, - wenn es auf 2 steht, bedeutet dies: 

Der Spieler "traf" , also überlappte Spielfeld 2, 
nähmlich die Tunnelwände. Wir programmieren dann einen 
Kollisionstu na und gehen auf Zeile 1030.. Das ist 
UNUMGÄNGLICH, damit die Ko 11isions register wieder auf 0 
gesetzt werden. 

Steht in unserem Register eine 1, so ist der genannte 
Spieler auf Spielfeld 1 gestoßen, also hi. er eine 
sogenannte Energiepille, 

Daraufhin wird der Text "YUMMY" ausgedruckt und ein 
passender Begleitton gesetzt. Dann geben wir noch POKE 
auf HITCLR und kehren zurück. 

Hier eine kurze Wiederholung: 

Man sucht das 1< c 1 1 i s ionsreg ister auf, das die beiden 
RiemenLa betrifft. Über die man eine Auskunft wünscht, 
entweder eine Spielernummer X oder eine Geschoßnummer X 
rechts und jeweils entweder ein Spieler, ein Geschoß 
bzw. ein Spielfeld Nummer Y links. Man fragt durch PEEK 
den Inhalt des Kollisionsregisters ab. Es kann 0,1,2 
oder 4 enthalten. Bei 0 fand keine Kollision statt» Bei 
1 ist man mit Spielfeld 1, Geschoß 1 oder Spieler 1 
zusammen gestoßen, jenachäem wofür das 
Kollisionsregister zuständig ist. 2 bedeutet 
dementsprechend, daß man mit Spielfeld, Geschoß oder 
Spieler 2 kollidiert hat. 4 steht schließlich für 
Spielfeld, Spieler br.w. Geschoß Nr. 3. Auf Grund dieser 
Rückmal düng aus d em Kollisionsregister kann man dann 
das Programm nach Wunsch verzweigen. 



Hier noch der Hinweis auf einen kleinen Trick: 

Zeile 245 ermöglicht der Fifur einen Bildumlauf in der 
X-Ebene (WRap Around). Hier wird einfach abgefragt, ob 
der X-Wert über 200 liegt, einen bestimnten 
Mindestabstand vom rechten Rand hat. 

Setzt -man X = 40, so erscheint die Spielfigur plötzlich 
von links. Eine Einzelheit de3 Beispiels 12 ist nicht 
auö der Codierung ersichtlich: 

Nähmlieh die Frioritäfc! 

Dieser Begriff steht für die Frage "Was erscheint VOR 
bzw. HINTER etwas anderem ?" 

} 

Unser Beispiel hatte keine Prioritätsabfrage, sondern 
lieft der automatischen Regelung freien Lauf. 


Um dies Kontrollregister einzusetzen, addiert man 
einfach alle Möglichkeiten auf und setzt die SUMME in 
623. Man kann jedoch nur eine Gruppe von Prioritäten 
wählen, also nur z.B. 8,4,2 oder 1. 

Der fünfte Spieler: 

Man erinnert sich, daß in Beispiel 5 durch Druck auf 
SELECT, alle 4 Geschosse sich zu einem Spieler 
z us ammenfügten. Das wurde so pr ogr ammiart: 

Man setzte 623 auf den Wert 17 sowohl für die 
gewünschten Prioritäten wie für Farbe des 5. Spielers 
(Teile 1000-1050). Dann schob man einfach die X- 
Positionen nebeneinander. Geschosse sind nur 2 Pixels 
breit; man kann sie gerne ins am genau wie einen normalen 
Spieler benutzen, nur daß das Aus rechnen der Position 
hier j eweils etwas schwieriger ist. 

Spieler von 16 Pixels Breite, Beispiel 13. 

Bisher standen ans zwar 128 bzw. 256 Pixels für die 
Höhe der Elemente zur Verfügung, jedoch nur 8 Pixels in 
der Breite! Um breitere Figuren zu bekommen, kann man 
ohne weiteres 2 Spieler so nebeneinander plazieren, daß 
sie optisch verschmelzen. Durch eine einfache Formel 
kann sie stehts auf 8 Pixel horizontal Abstand halten. 
Beispiel 13 zeigt ein solches Verfahren für ATARI. 

Eine Überraschung (für 32K;, Beispiel 14: 


Unser letztem P rogram ist ein Aus gabeProgramm für 
Spiel erfiguren. 

Es wird wie folgt eingesetzt: 

1. Am Anfang des Ablaufs wird abgefragt, ob alte Daten 
übernommen oder neue geladen werden sollen. Wähle nun. 



2. ^ Als nächstes sollte die Nachricht erscheinen: 
Spielernummer für Ausgabe." Wähle jetzt eine Ziffer 

von 0-4. Der 4. Spieler wird aus den Geschossen 
geh i ldet. 

3 * Ein blinkender Läufer erscheint jetzt im 
Ausgaberahmen links, Drücke D um zu zeichnen und führe 
danach den Läufer mit den 4 Steuertasten wie gewünscht 
hm und her (CTRL wird nicht gebraucht). 

4. Um eine Zeichnung zu beenden, drücke E (ERASE). 
Bewege den Läufer an den Anfangspunkt der nächsten 
Zeicanung* 

5. Man kann auch an einer Zeichnung neu anfangen: 
Hierzu • drückt man START und korrigiert oder ergänzt 
nach Belieben mit dem Läufer. 


6. Drücke OPTION zum ändern .der Nummer des ausgegebenen 
Spielers, 


7 *. M ' 4n kann den gerade entstehenden Spieler auf dem 
Spielhebel auch bewegen (Spielhebel 1). 

8. Die Größe des aus gedruckten Spielers kann ebenfalls 
geändert werden (außer bei Spieler 4): Dazu drückt man 
SELECT, aann 0, 1 oder 3 für normal, doppelte bzw. 
vierfache Größe. 


9. Drücke S, um die aufgebauten Figuren auf Band oder 
Platte zu bringen. 

10. Drücke C, um irgendwelche aufgezeiebneten Figuren 
in den Speicher zu laden* 

Zu beachten: 

Wenn man einen Satz Spieler in die Maschine läd, sieht 
man sie zunächst nicht, sondern erst nach drücken von 
OPTION und Einzelabruf. 

Dieses. Ausgabeprogramm macht ein schnelles entwerfen 
von Spielern für jeden Zweck leicht. Die Codierung für 
unser Verfahren enthält übrigens auch einige lehrreiche 
Beispiele für die Speicherung von Spielerdaten mit 
rliKe von STRINGS, interessant für Fortgeschrittene. 


Einige ergänzende Hinweise sollen die Lektion 
abs ch1ieß sn, 

Zuergt gehen wir zum Beispiel 2 zurück, an dem wir noch 
einmal die Struktuiarung des Sniels demonstrieren 
wollen, soweit diese in die VCodierung eingeht. 


Die Zeilen 40-60 setzen die Farben, Zeilen 70 verweist 
auf eine Subroutine, die die Spielfelder zeichnet. Das 
Spielfeld sollte man stets am Schluß des Programms 
behandeln, damit die Hauptschleife schnei1er abläuft. 
In diesem Fall wird für die Spialfelderstellung 
lediglich eine größere Menge von Daten geplottet, 

Zeile 30 sagt aus, daß das Programm nicht gestoppt ist, 
sondern sich nur neu ordnet. So etwas macht sich immer 
gut. 

Zeile 110 ist kompliziert. Es handelt sich um eine 
weitere Routine in Maschinensprache, sogar weit 
nützlicher als die zuerst gezeigte. 

Es werden hier 4 Anfangs register festgelegt, undzwar in 
einer geschützten Zone des Speichers, nähmlich zwischen 
BM3ASE und PMBASE+768, wo die Geschoßdaten beginnen. Da 
Zeile 20 diesen ganzen Bereich löscht, weiß man, daß er 
frei ist und gesichert. 

Nun, auf den Zeilen 130-310 werden die Daten für 2 PAC 
MAN-Umrisse und 2 für das SQUIGILY MONSTER eingeladen. 

Ihre Anfangspunkte sind leicht merkbar und kennen 
später gut gefunden werden. 

Zeile 330 gibt den Maschinencode wieder, der in einem 
String gespeichert ist. Man kann diese Zeile für andere 
Programme abkopieren, zusammen mit dem 
Dimesaionestateient auf Zeile 50 und dem zugehörigen 
USR-Abruf- 

Die Zeilen 380-440 erbringen die normale Rechenarbeit, 
die man zum Verfolgen der X- und Y- Werte zweier 
Spielhebel braucht. 

Auf den Zeilen 450-430 wird in Maschinensprache 
gearbeitet. Es handelt sich um eine Routine z um 
Verschieben im Speicher, Sie nimmt die genannten 
Adressen auf und bewegt deren Inhalte an jede 
gewünschte Stelle. Man kann sie zur totalen 
Verschiebung eines vollständigen Bildinhaltes anwenden, 
wenn man will. In unserem Beispiel dient die Routine 
zum Bewegen der Figur, die in den Bereich zwischen den 
Daten der beiden Spieler abgelegt ist. Folgende 
Anweisungen werden in den einzelnen Zeilen gegeben: 

450: "Die PAC MAN - Daten sind von Stalle "Figur 2" auf 
den Bereich für Spieler 0 gerückt, wobei 20 Bytes 
gebraucht werden." Diese Figur erscheint jetzt im Bild. 

460: "Dasselbe wie vorher, doch die SQUIGILY-Daten in 
den Bereich von Spieler l"(such dieser wird jetzt 
gezeigt). 

470: "Bewege 2. PAC MAN - Gestalt in den Bereich von 
Spieler 0"(neuer PAC MAN wird gezeigt). 

480: "NBewege 2. Squigily-Gestalt in den Bereich für 
Spieler 1 !"(neue Gestalt wird gezeigt). 



Alle oben genannten Bewegungen schließen auch das Auf- 
und Abrücken ein, zugleich mit der Addition auf der Y- 
Koordinate, die j ewei1s im Register für die 
Datenbewegungen eingegeben wird« 

Diese Routine bewegt alle 5 Spieler und/oder Geschosse, 
alle sehr schnei1, Die frühere Routine in 
Maschinensprache bewegte nur Spieler 0, Die hier 
benuzte Routine wird von uns oft eingesetzt. 

Die Zeilen 490-570 registrieren alle Kollisionen, an 
denen wir interessiert sind. Jede dieser Stellen 
enthält eine Verzweigung zu einer Subroutine bzw. 
enthält bedingte Änderungen. 

Die Treffsrzählung und die Töne sind simple zu 
p r o g r ammieren: 

Man setzt einfach einen Toncode, zählt einen Treffer, 
wechselt eine Farbe. Diese Elemente eines Spiels hängen 
von der Phantasie des Programmierers ab, er setzt ein, 
was er für gut hält.' 


SCHLUßBEMERKUNG : 


Wir haben den Gebrauch der Geschosse nicht sehr betont. 
Es^ wird klar geworden sein, daß man sie genau wie 
Spieler einsetzen kann. Ein gutes Beispiel für ihre 
Bewegung bietet Beispiel 1 in den Zeilen 640-710. Dia 
hauptsächliche Einschränkung bei Geschossen besteht 
darin, daß sie nur 2 Pixels breit sind und daß die 
Geschoßdatenbereiche in ein und demselben Streifen 
stehen. Das bedeutet, daß man HULEN in diejenigen 
Geschoßpositionen poken muß, die nicht auf das Bild 
kommen sollen bzw, das man diese Geschosse mit Hilfe 
der Register für horizontale Positionen aus dem Bild 
schieben auß. 


In den Programmen sind übrigens einige kleine 
Besonderheiten in Hinsicht auf Farben, Größen und 
Wegschieben von solchen Figuren, die gerade nicht 
gebraucht werden, varsteckt. 

Sie alle sollten sorgfältig studiert und 
Umständen verbessert werden. 


unter 
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190 

200 

210 

220 

230 

240 

250 

260 

270 

280 


290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 


DIM AS ( 15} , 03» ( 1) : POKE 623,8 

F0R°I=PMBA5E+384 TO PMBASE+1024: 
POKE I.01NEXT II RETURN l REM CLEAR 

K=20?REM INITIALISIEREN VON 

cp T Fl PP fl 

SOUND 3.13,8,21 REM WELTALL SOUND 
GRAPHICS iJ’lS tt6f“ PLAYER " 

? «65" MISSILE" 

«6} " GRAPHICS“ 

FOR 1=1 TO 20001NEXT I 
2=90:REM INITIAL Y POS. FUER 

P0KE E 7Q4,149:POKE 705.249:REM 

^E B f 6 E u ^ w a§II R SE§HlEi: N p- 

P106=PEEK° 106?*P=P 106-40: POKE 
54279.P:PMBASE=256*P:eQSUB 730: 

POKE 559l46=POKE 53277,31POKE 752, 
lYpOKE 5^5248,0:P0KE 53^49,0 
GÜSUB 30 

^0R T I=PMBASE+640+K TO PMBASE+644+ 
KI READ S:POKEI,BlNEXTl 
DATA 153,189,255,189,153 
REM DATA FOR TIE SHAPE 

F0R T °=PMBASE+512+Z TO PMBASE+316+ 

PÖK| A 532 S 6 ? 0 :P 0 feE : 53260 ;i 3 

DATA 255,189, ,153 

? "DAS IST DAS WELTALL .. 

^wi^N^NlS^ilNjsPIELFELD- 

^SP^EEL^ELD ^UMRANDUNG t 
■»:r « UND FARBEEN":FOR l r 

i TO 20IPOKE 712,RNDC0)*255 t 
FÜR J-l TO 1.00: NEXT JINEXT I 
•3 " WIR HABEN SPIELER 


a#=*^< ==== 'Spieler i ": x-is: y=i 

GOSUB 870 

"<===« SPIELER 2":X=15:Y=1 
PBr U I=1 7 T0 30:NEXT I 

§ E ? ? ****^?. ?|g E i^l G pira. - 

FOR N VOL=1*fö 2 15 STEP 0.1:SOUN 
25.4.VOL:SOUND 1,13,4,VOL 
N=vÜL*24Q/15 
POKE 53249,N: 

I *I 


H-vulTCÄHV/ 

POKE 53249 
VOL 


POKE 

VOL 

FOR VÜL = J.4 TO O STEP -0., 
25,4, VOL I SOUND 1,13,4. VOi 
246/14:POKE 53243,N:POKE 
NEXT VOL 

REN ****** WECHSELN DER GRC 
... SO WECHSELN Wir 

GROESSE 11 
470 POKE' 53242,74:POKE 53249,7* 


;p -O. 1 ; 

VOL: N= 

n.*r C 7 * 


450 

460 




s? 





sLkjy 



480 to K |ooo?nI>:t : ™ KE 532 57,1 = for 1 = 1 
4 ’° fo K foBo?§l<rf ! f OKE “257,3™ I»1 
l?8 fogI 

516 FOR 1=1 TO 8:POKE 53247+1,Q:MEXT 
520 END 

H§ |oKE*lp|!.i§?P8SI s s !g!«yg s ** 

600 T 28 ’ FOf? SH Ör=l TO 6: FÜR £ 0=20 TO 

070 SQUNü o, po, o, s: sound i. po in «* 

,SOUND 2 IP 0 "1^78:SOUND J PÖ 4*r 
ä8 ° 3S4 + P0 t<1 4 AS ^ +3 ^ 3 ' , ' P0 ' 0: P0 ^ E ^N^ASE + 
690 NEXT PÖ;NEXT SHOT 
00 NEXT°OFF° T ° 3:S0UNr > OFF, 0,0,0! 
710 RETURN 

730 S3?*S*** 

750 GOTO 740 

?$8 llflPHXCS 1i '!7 TITLES ****** 

790 ? tttl" p g°? R gg : 

lio ? HJiirfttii,** ■ 





REM BEISPIEL 2 

REM 

REM 

REM 

GOTO SSO 

FOR I=PMBASE TO PMBASE+2048:POKE 
I*.0:NEXT i: RETURN 
REM *****PLAYER ERSTELLEN***** 
GRAPHICS 7:POKE 710,121:POKE 712. 
Ö5POKE 704 ,41:POKE 705,41:POKE 

DIM J ftl(100):POKE 623.1 
POKE 708 1 103:POKE 752,1:POKE 709, 
148 ? ’ 

GOSUB 690: REM HINTERGRUND MALEN 
? M " *-*-5!- AUGENBLICK BITTE ** 

A=PEEK{106)-32:POKE 54279.A: 
PMBASE=A*256 

POKE 53277,3:P0KE 53256,0:P0KE 
5325Ö 15Ö ' 

GOSUB* 20iSHAPEl-PMBASE:SHAPE2* 
PMBASE+50:SHAPE3=PMBASE+100; 
SHAPc,4=PMBASE+ ISO 
RESTORE 160:Yl=172:Y2=172IKl=60: 
X2-190 

FÜR I=PMBASE Tü PMBASE+20:READ B 
POKE I,B:NEXT I 

REM ***** DATA FUER PACMAN1 ***** 
DATA 0,0,0.28.62,119,127,126.124, 
120,124,126,127,126,&2,2&,O,Ö, 0, Ö, 

RESTORE 210 

FOR I=PMRASE^50 TO PMBASE+70:READ 
B 

POKE I,B:NEXT I 

REM ***** DATA FUER PACMAN2 ****** 

0.0.Ö,28,62.118,126,126,126, 
1^6, &2,20,0,0,0,6,0 

RESTORfe ^60:F0R I=PMBASE+100 TO 
PMBASE+120:READ B 
POKE I B“NEXT I 

REM **4*4 DATA FUER MONSTER1 ***** 

DATA 0,0,0,0,124,214,214,254,124, 
68,63,204,0,0,O.O.Ö,0,0,6.0 
RESTORE 310 ’ ' ! ' 1 5 

FOR I=PMBASE+150 TO PMBASE+170: 
READ 13 

POKE I,B;NEXT I 

REM ***** DATA FUER MONSTER2 ***** 

P Ay A O.0,0,0,124,254,214,214,124, 

o3,68,102,0,0,0,0.0,0,0,0,0,0 

SC0REM0N=ä:§CÖR£pAc£3 

A$="h EI3 £ C 3 E P 3 3h E £ E 3 a3 h E t E 3 £.J 3 h C 

j£}r. IhE CEIblhC tE leiht £E3d> 3 t , JE 

£ E 3 f £ E 3 q ( 1 { . HQlbHJOt) 1C A >e E t . J 

lEJt. 3) 3£, 3©la£E>a3 £X3E) 3 1 AleCb 

£E>b) 3 £ , JeLctElcHXK! 3 £ AleE-F 

£ E 3 f ! H, leCgCEJgl£XJ E%dEfPN%eEgPH3 

?':? :? :7 "STIcki 
STI.CK2'’: FOR 1 = 1 TO 300:N£XT I 
REM ******HAUPT PROGRAMM******** 
GOSUB 1030 

POKE 53278, 1: REM CLEAR ALLE 
KOLLI5IGNS&EGISTER 
STlaSTICK(O):S=P£eK(53279) 
ST2=ST1CK(1) 



|4L> 
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400 

410 

4^0 

430 

440 

450 

460 

470 

480 

490 


5C0 

510 


520 


530 

540 

550 


560 
570 
580 
590 
600 
6 !0 
640 
650 
660 
670 
600 
690 


700 

“MO 

720 

730 

740 


750 


760 

770 

780 

790 


jr- 3=3 TUEN PÜKE 764,12: RUN "DI 
F/5 3" 

Y1=Y1+(ST1=13>*2-(ST1=14>*2 
Y2=Y2+ (ST2=13H(-2- (ST2=14)*2 
XI=X1 + (ST1 = 7)- IST 1 = 11) :POKE 53248, 


XI 


X2=X2-i- (ST2=7> - (ST2=11 } 
X2 

D=USR(ADR(AS) 

y t ) 

D=ÖSR(ADR(AS) 

Y2,20) 

D=USR(ADR(AS) 

Y1,20) 

D=uSR(ADR(AS) 


POKE 53249, 
SHAPE2,PMBASE+1024+ 
SHAPE4, 

SHAPE1 


, PMBASE+1280+ 
PMBASE+1024 + 


SHAPE3,PHBASE+1280+ 

IF’ PEEK ' 53252) =2 THEN POKE 704, 
200!POKE 705,41:SOUND 0.200,10,8! 
FOR 1=1 TO 30:NEXT I!SOÜND 0,0,0, 

o 

IF PEEK(53252)=1 THEN X1=X1-(ST1= 
7)+(ST1=11)!POKE 53248,XI!Y1=Y1- 
(ST 1 = 13)#3+(ST1=14)*3 
IF PEEK(53253)=2 THEN POKE 705, 
200!POKE 704,41!SOUND 0,200,10,3: 
FOR 1=1 TO 30:NEXT I:SOUND 0,0,0, 
O ' r r 

IF PEEK(53253)=1 THEN X2=X2-(ST2= 
7) + (ST2=11) ! POKE 53249, X2‘. Y2=Y2- 
(ST2=13>*3+ (ST2=14)*3 
IF PEEK(53260)<THEN GGSUB 920: 
30TÜ 570 

IF PEEK(53253)=4 THEN GGSUB 
IF RND(0)*100>99 THEN COLOR 
PLOT 35,55:PLOT 135,65 
IF PEEK(53252)=4 THEN GOSUB 
POKE 53273,0!GOTO 380 
GRAPHICS 17 

7 #6)"WIR SPIELEN 3ET2T 
7 #6?"MIT EINEM KOMPLETTEN" 

“ #6?"SPIEL, 

' "WIR WOLLEN JETZT DAS" 
'ERLERNEN WIE ES GE- “ 

'MACHT WIRD. 

'BITTE PACMANt 


890 

3: 

860 


#6 i 
#6; 
H6S 
# 6 ! 




FOR i=l TO 3000!NEXT I:GOTO 30 
REM **** HINTERGRUND*-»-**'»-*-*-*'**-**** 
******* 

RESTORE 740:COLOR 1 


X2,Y2:IF X1=999 THEN 


XI , Y 
710 
20 


1:DRAWTO X2,Y2 


, 20,20,0,20,0,0,0,0,0,0,79, 
70 79)70 ,7$,7Ö,fo f o!5Ö,lol50^ 

io,4o;io;io io;3oJiö,30,26, 


READ 
820 
PLOT 
GOTO 
DATA 
0,79 
Ol 40 
30 

DATA 20,30.20.40.20,40,40,40.40. 

40.40.10.20.50.20.60.20.60, 10,60, 

10.60, 10,70, 10,70j5ö’70|50 * 70 J 50’ 

VÖ T S^ 3 S^S-30,0 6 30 Ö 0^70 4 0,70,0 Ö 70, 

-j ^0,40,50,30.60,40,60 
„ _/Q,30,90,30,90,30,$0,So,70. 

60.90,io!90’20i8C,lO,30,0 

159,6,15?. 0x159,70,159, 
79,80,79,SO,79 80,60,SO,60,60,60 , 
60,60i6c'7C ’ ’ 

DATA 90,60,90,70,90,70,150,70,150, 
70,150,40,140,60 13Ö,6Ö,130,60, 




1 0 

30 

40 

50 

60 

70 

30 

90 
1 00 


1 10 

120 
1 30 

140 

150 
160 
170 
1 30 

1 90 
200 
210 
■?2C 
230 
740 

2 60 


REM BEISPIEL 3 

PEM 

REM 

REM 

FQR 1-1 TO &;PGKE 03247+1,0:NEXT 
I 

__ - I7:POKE 752,1:PGKE 712, 


GRAPHICS 
128 


#6f " 
# 6 ; " 
#6 5 " 
#6 5 " 
#6 


LEICHTER START 

l 

MIT DEM 


•p 

. 6 

^ H6i- SPIELFELD 

FÜR 1=1 10 100IPGKE 709,I:FOR J=1 
TO 30:NEXT J:NEXT I 
REM ******** EIGENE ZEICHNUNG*** 
GRAPHICS 5:? "MIT JOYSTICK 0 
ZEICHNE SPIELFELD 0-3":? " 

PRESS 0,1,2, OR 3" 

POKE 70ä,ä!4^:P0KE 712,130:P0KE 
709,67:POKE 710,33 
ST—STICK(0) 

Y—Y+(ST =13) + (ST=9) + IST=5>-tST=10) ■ 
(ST = 14)-(ST=6) 

X=X +(ST-6) + (ST=7) + (ST=5)-(ST=10)- 
(ST =11)-{ST=9) 

COLOR PFN 

IF X<C THEN X=0 

IF X >79 THEN X=79 

IF Y<1 THEN Y=1 

IF Y >39 THEN Y=39 

IF PEEK(764)=50 THEN PFN=0 

TF PEEK(764!=31 THEN PFN=1 

IF PE^Kf7641=30 THEN FFN=2 

IF PEEK5^64)=26 THEN PFN=3 

POKE 656,2:? "BENUTZE SPIELFELD 

#”:PFN:POKE 752,1 

PLOT X,Y:GOTO 120 




130, 70, 130 j 40 , 110,40, 110,40, 1 10, 
100*30.,. 130,30, 


870 

830 

340 

850 

SAG 

370 


SSO 

390 

9QC 


910 

920 

930 


940 

950 

9£,o 

cs 77 fl 


93 0 
990 

1000 

JO'O 

1 07-0 

1030 


loo;io'^:9 9 ;9 9 !U>1 ^ >10 ’ 100 > < 

roi M np*f^^nl ^rSe 6EEEN ******* 

|gbg|«! ö f 8§,Soli:B e?? : ? LOT 70 - 3 °* 

RETURN' 1 

REtt ###-»■# PUNKTE EUER PACHAN #***--* 

8&gip8iEbgä R iPÄ?nft.gä {2 |(,*% , 

loluB'lilgyRSTUftN’* °’ 8 = NEX3 1 

|olo|*o: 

ICURSMON-SCOREHÖN+liFOR I=5Ö TÖ 1 

|älG E 0öS8y^r8ftÄ' 10 ' 8:NEXT 1 

If*.***** pflC ER ASS MONSTER #.*#■»■*** 
IF PEEK(53260)=2 AND PE£K(704i= 

pR?H^I^ B ^d A isg CÜREPAC+5 " : 

v> U I U y fr O 

F0R_I”'2Ö0 TO 0 STEP - i ; SOUND O Y 
10,8; NEXT T OJunw u Ui 

< ?8Sfi* 

G8guI h Yg3SVggfS 0 ^g C0REM0Nt5: 

GOTO 1000 



1^24 ’'1^0 ( Aiß) , PMBAEJE+200, PM8ASE + 

r ?s£grIpAc i e°“ a57 * 2: 

""SCÜREMÜN:RETURN IQNSlER - 




180 

190 

200 

210 

220 

230 

240 

250 

260 

290 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

000 

010 

020 

030 

040 

050 

060 

100 

110 
120 
1 3 0 
140 
1 50 
160 


REM BEISPIEL 4 

REM 

REM 

REM 

9 CHRS(125S ■' 

I=PEEKt1061-S 
PGKE 54279,1 
PMBAS“-1*236 

FOR &~PMBAS+51 2 TO PMBAS+640 
PGKE 0,0 
WEXT 0 
X=1S0:Y=100 

PCKE 704,POIPOKE 559,46:P0KE 

53277.3 

POKE 53248,X 

FOR 0=0 TG 8 

READ F 

POKE PMBAS+512+Y+Q,P 
NEXT Q 

DATA 12,12,8,63,72,136,20,34,65 

POKE 53^5öjl 

GOSUB 1000 

GGSUB 1100 

FOR 0=1 TO 80 

B=USR < UP,PMBAS+511+Y ) :Y=Y-1 
NEXT 0 

FOR 0=1 TO 120 
X=X-1:POKE 53248,X 
NEXT Q 

FOR 0=1 TO 80 

B=USR(DOWN,PMBAS+511+Y):Y=Y+1 
WEXT 0 

FOR 0=1 TO 120 
X=X+11POKE 53248,X 
NEXT 0 
GOTO 270 

DIM ÜPCODES(21):UP=ADR(UPCÜDES) 
FOR I=UP TO ÜF+2Q 
READ B;POKE 1 ,B 
NEXT i:RETURN 

DATA 104,104,133.204,104,133,203 
DATA 160 1,177,203,136,145,203 
DATA 200!200,192,1 l ,208,245,96 
DIM D0WNC0DE$(21):DOWN= 

ADR(DQWNCQDES) 

FOR I=DOWM TO D0WN+2Q 
READ B;POKE I.E 
NEXT i;RETURN 

DATA 104,104,133,204,104.133.203 
DATA 160,10,177,203,200,145.203 
DATA 136,136,192,255,208,245,96 


NEXT 

DATA 

DATA 

DATA 


NEXT 

DATA 

DATA 

DATA 



REM BEISPIEL 5 
REM 
P E hi 
REM 

Tp^p \n 

dim :<!8): menü=iooo: MOV=i.oooo; cplr= 

FÜR°I=1°TG 4?X’(I) =20+1*24: NEXT i: 
REM INITIAL POS CF P/M 1 TO b 
FÜR 1=5 Tü 8:X(I>=110+1*9:NEXT I 
TRAP 210:PÜKE 559,0 

PgiSl3;?FbiS?iä:PC3-248:Pc4-M: 

BAKC =0 

PÜKE 704,PC 1IPOKE 705.PC2:POKE 
-?06, PC3: I^OKE 707, PC 4 : PC 5=28: REM 
PET UP INITIAL C&L0R5 QF PLAYERS 
Ä=PEEK(IÖ6)-8:PÜKE 54279,A:PMBASE= 
256*a;rem playf.r-missle £tari 
ADDRESSEVOM PUNKT 8*256(2048) 

REM BYTES UNTERE BYTES MUESSEN 
NACH OBEN UND GEHE SICHER DAS ES 
AN DIE 2K GRENZE IST 
REM PÜKE 559,46:POKE 53277,£1 REM 
7 ZEILEN PM GRAFIK MIT TRICK 
PO^E 57277,3 

POKE 7=2,I*REM MACHE CURSOR 
UNSICHTBÄR UND BEWEGE IHN SFAETER 
r-TiR T=PMBASE + 384 TÜ PMBASE+1024: 

P8!f TO PMBASET448: 

f8r E I=SmBASE+512 1 TO PMBASE+576: 

F0P E I=SMBASE+768 I T0 PMBASE+832: 

FÜR E I=SMBASE + 640* TÜ PMBASE+704: 

für E i=SmIaIe+196 I tü PMBASE+960: 

■ PSKI hEVMlKl 53257,3'. POKE 

piTHtü 1 T8?f I ffi!8!t86R8*!«8"“ 0 ’ 

- FOR E! i = l TO 8: POKE 53247 + 1,X(I) : 
NEXT I 

j p fi l*' er ^ S 9 4 A 

» X=50:Y=5Ö:PÜKE 710,BAKC:P0KE 752, 

i PÖR I=i G T0 U 5:PÜK| 53247+1,X(I): 
NEXT I:REM BEWEGE SPIELER AUF 


NEXT UREM BEWEGE SPIELER AUF 
R t I rjSCH IRM 

REM ****** HAUPT PROGRAMM**** 
S=STICK(0) 

PF M 

IF PEEK(53279)=5 THEN GOSUB 1000 
IF STRIG(0)=0 THEN GOSUB 380 
IF S= 15 THEN 240 , ^ , ISL , C . 

X2=X1-<S=9)-(S=10)-(S=l1)+(S=5)+ 
’fr - ( S — 7 ) 

Y2=YI-(S"6)-<S~lÜ)«tS~14 > + (B=5) + 
ES=9)+(S=13) 

IF X2<i THEN X2=l 
IF X2>37 THEN X2=37 
IF Y2<1 THEN Y2=l 
IF Y2 >10 THEN Y2=10 „ 

POSITION Xl,Yi:? ’ „ " 

POSITION X2 Y2:? 

X1=X2:Y1=Y2 
GOTO 240 
S=STICK(0) 

IP S=15 THEN 380 




4 m 
420 
430 
440 
445 
45C 
460 
470 
430 
4 90 

500 

510 

520 

530 

540 

550 

560 

570 

530 

590 

600 
6 1 Ö 
620 
630 
640 

650 

655 

656 


IF 
IF 
IF 
IF 
IF 


X2 <7 THEN 
X2<13 THEN 
X2C19 
X2< 25 
X2< 34 


460 

510 

560 

610 

655 


659 

660 
670 
630 
690 

700 

710 

720 

730 

740 

750 

760 

765 

770 

7S0 

1000 

1010 

1020 

1030 

1040 

l 050 
10000 


THEN 
THEN 
THEN 

GOTO 660 

PCl=PCi+!S=14)-(S"131 
IF PC1< 2 THEN PC1=2:RETURN 
IF PC 1>255 THEN PC 1=255:RETURN 
POSITION 30,17:? “ ":POSITION 

30 1 ■ •? pr i 

POfte 704,PCI:RETURN 
PC2=PC2+XS=14)-(S=13) 

IF PC2<0 THEN PC2=0:RETURN 

IF PC2 >255 THEN PC2=255:RETURN 

POSITION 30,19:? “ “:POSITION 

30,ISS? PC2 

PO&E 705,PC2:RETURN 

PC3=PC3+XS=14) - ( S= 1 -3 3 

IF PC3<0 THEN PC3=*Q: RETURN 

IF FC3 >255 THEN PC3=2S5!RETURN 

POSITION 30,19:? * *!POSITION 

50 t ö * ? pri 

PQ&E 706,PC3:RETURN 
PC4=FC4+XS=I4>-(§=13) 

IF PC4< 0 THEN PC4=0!RETURN 
IF PC4>255 fHEN PC4=255:RETURN 
POSITION 30,20:? " “-.POSITION 
30,20:? PC4 
PORE 707,PC4:RETURN 
PC5=PC5+XS=14)-(S=13) 

IF PC5<0 THEN PC5=0:RETURN 

f5sf¥?ÄS 0 3oTafv ? p s 3 “ 2 5?^iivfB N 

30.21:? PC5 

PORE 711,PC5lRETURN 

BAKC=8AKC+(5=143-(5=13) 

IF BAKC <0 THEN BAKC=Ü!RETURN 
IF BAKC>255 THEN BAKC=255!RETURN 
POSITION 30,22:? " : POSITION 

30,22:? BAKC 
PORE 710,BAKC:RETURN 
GOTO 380 

POSITION 10,15:? 

POSITION 10,16!? 

17:? 


POSITION 10, 

704) = "iPCl 
POSITION 10,18:? 

705) = ”S PC2 
POSITION 10, 

706) = 11 S PC3 
POSITION 10,20: 

707) = "S PC4 
POSITION 10,21: 
711)= "SPCS 
POSITION 10 


SPIELER FARBEN 11 
************* 11 
SPIELER OtPOKE 


'SPIELER 1(POKE 


19:? “SPIELER 2(POKE 


"SPIELER 3(POKE 
"SPIELER 4(POKE 


_ . iu .22!? "HINTERGR, (POKE 

710) = ";BAKC 
RETURN 

REN ***** 5. SPIELER ******* 

IF FLAG=0 THEN POKE 623,17:FLAG=11 
GOTO 1030 

IF FLAG=1 THEN POKE 623,1:FLAG=0 
FÜR 1=5 TO 8:XC? > =.110 + 1*8: NEXT I 
FOR 1=5 TO SiPOKE 53247+I,X(I): 
NEXT I 
RETURN 

GRAPHICS 10:G0T0 IQOOO 







1 


2 

4 

10 


20 

30 

40 


50 

60 


-?0 
30 
90 
100 
1 10 


120 

140 


150 

160 


170 

130 


190 

200 

210 


720 
? O 

240 

250 


260 

270 

230 

290 


300 

310 


POKE 53247+1,0:NEXT 
SHAPE ****** 

IST=5)-(ST=9)- 
+ <ST=5t-(ST=6)- 
TO 251 PLOT X + 


REM BEISPIEL 
OEM 
REM 
REM 

FÜR 1=1 to 3 
T:GOTO 410 
REM ***** PL01 
COLQR 0 

D=D+(ST=6) ^ <ST=7) + 

(ST=1O) - (ST =11 > 

E=E+(ST = 13) + (ST=9) 

:ST=10) - (ST = 14) 

FOR X = Ü TO 9:F0R Y = 0 
D, Y+E;NEXT Y:NEXT X 
RESTÜRE 150:CDLOR 1 
FOR N=1 TO 100:READ X:READ Y 
IF X=0 AND Y=0 THEN RETURN 
PLOT x+d,y+e:next N 

E$(1,60>-hhhJHt01{K}[ ICBltlKlHJ 
{3JKHHPwlhJHCOl{K> L @BELL@1KH<Q>K 
{ Hl 1H JPwlhJHCOl 101 CFM7»m Ml 1 
l , 1 fPlhJ CO MGI t-f M7.M1 M> 3 i , 1 CP] C , > 

R&M £OKE 53243,30 
SOUND 2.0.8.2:FOR V0L=1 TO 15 
STEP 0.1:SOUND O,25,4,VOL!SOUND 1 
13,4,OQL 

DATA 5,0,3,1,41,5.1.6.1.2,2,3,2. 
4j, 2,5,~.,ü,2,7, 5 1 ^ 3 j 2 j 3,7 j ^j^3,3,2, 


4;3;s;4;5;5;s; 


23,4,24,5, 


***** 
D=20:E 


POKE 


50: 
10 , 
NEXT 


|;4;4;4;s;4; 

üAta 4,6,5,6,2,7.3.7 s 4,7.5,7,6,7, 
7, 7 . j. ,3,5,ä,£,£,£,&, i,*5*.ö,*3».i, ioj 
4, 1 0 , , 10'7' iÖ,i,11'4 '11., &,11J 7, 

DATA 2,12,7,12,3,13,6,13,3,14,6. 
14,4,15.5 1S.4 16.5 lÄ.4l).5 l), 
4,l8 5,18 3,i9 4,1? 5,1? 6,1? 

DATA 2 20 3 20 4 20 5 20 6 20,7. 
70,1,21.2 2i,32l,42l,5 2l.6 2l, 

'2,^ 2 , 3 ,^ 2 ; 4 ,^ 2 ; 5 ,^ 2 ;6, 

24 + 8’§ ; §V’ Z3 ’ 5 ' Z3 ' 6 ' 

RE& &*4*4pLAYER SETUP 
DIM Eie (60) : GRAPHICS 6: 

POKE 559,0:GOSUB 20:? 

WKICH IS'THE PLAYER?": 

14G:POKE 712,143 
? "SELECT = SIZES OPTION = 

EX. " 

E$(1,60) =" hhhJHtOl (KM H.HIKCHJ 
1 ß 1 KHHPwIhJHtOllKJE 1 < , Jtl.KHISJK 
f HMHIPw] hOHIOl 1G1 CFMXMiMJ I 
1, >[P3h3[03tGJ I + M’APKM} 1 i , > CP 3 i „ } 

A=Pe£k(106)-16:POKE 54279,A:PÜKE 
204. A+4: POKE 203,O:PMBASE=A*256 
POK£ 53277,3 1 POK.fe 704,40: POKE 
53248,150:POKE 205,120:PQKE 53256, 

O 

FOR I=PMBASE+1024 TO PMBASE+1280: 
POKE I,0:NEXT I 
RESTORE 290 

FOR I=PMBASE+1155 TO PMBASE+1209: 

READ BIPOKE I,B:NEXT I 

DATA 8,3,60,60,126,126,195,195. 

126,126,60,60,24,24,12a,126,165, 
a 65 

DATA 129,129,90,90,90,90,66,66.36, 
36,36,36*24,24,24,24,24,24,&4,£4 
DATA 60,60,126'126,255,255,126, 



32 0 
330 
340 
3b0 
360 

370 

380 

390 

400 
410 
420 
430 
440 
430 
460 
470 
4 80 
490 
50 0 
510 
520 

530 

540 

550 

560 

■=170 

53Ö 

590 

600 

610 

620 


630 

640 

650 

660 

670 
£ PiO 

690 

700 

710 

720 

730 

740 


126.60,60.2‘ 
POKE 559,62 


:4 S O, 0,0,0, O 


*******! AUPTPROGRAMM*** 

TRT.et0)=0 THEN GÜSUB 20:FLAG= 

:S—PEEK(53279) 

GOSUB 670 
POKE 764,12:POKE 


REM 
REM 
REM 

7 p 

Ö 

ST=ST][CK<0: 

IF S=5 THEN 
IF S=3 THEN 
532S6,Ol RUN 
A=USR CADR(E$) .STICK (0) } : GOTO 
GRAPHICS 17:pÖKE 712,148 
^ DAS BEISPIEL iEIGT 11 

" DEN VERGLEICH VON 
"NORMALEN SPIELER 
_,"UND SCHATTEN SPIELER" 
«6;"NIMM DEN STICK UND" 

#6 j "SIEH ---- 

.IST. 


360 




#6; 
#6; 
«6f 
&6: 


«6; 


210 


WER DER SPIELER^ 

FOR l^l^TÖ 3000:NEXT I:GOTO 
REN ***** PLOT SHAPE ****** 

COLOR 1 

D=D+ iST=6) + (ST ~ 7 ) + (ST=5>-(ST=9)- 
( ST = 10 J - t ST = 11 ) 

E=E+(ST=13)+(ST=9)+1ST=5)-(ST=6J- 
(ST = 101 -(ST =14) 

RESTORE 370 

FOR M=1 TO 100:READ X:READ Y 
IF X=0 AND Y=0 THEN 110 
PLOT X+D,Y*EiNEXT N 
IF FLAG=0 THEN COLOR 
RETURN 

FÜR X=1 TO 8:FOR Y=0 

d^y+e:next y:next X 
RETURN 

DATA 5,0,3,1,4,1,5,1 


0:GOTO 130 
TO 25:PLOT 


X + 


A^n,F-c ,'„j . i * "T , J. , , 1 , u t 1,2,2,3,2, 

4 J 2 J 5,^ ) |4,>4, 1444, > } V 

^ j ü j ^ 1 ' 3j5j4jDjü f 

DÄTA 4,6 J- 5.6,2,V,3,7. 4,7,5,7,6,7, 

data’ i;20;I;20;4;Io:I;20:20,7, 
20,1,21,221,3 2l,4 2l t S 2l,6 sl, 
7,21 r S,21,2,22,3,22,4,22,5.22,6, 

4, 23,5,23,6, 23,4,24,5, 

REM ***** SIZES ***** 

9 ■' 7> ::PRESS_0 1 1, OR 3 FOR 


SIZE":7 " SELEC 
NEXT EX." 

POKE 764.255 
PK=PEEKC764) 

IF PK=5Q THEN 


= SiZES 


IF PK—3i 
IF PK=26 
GOTO 700 


THEN 

THEN 


POKE 

POKE 

POKE 


53256,01 
53256,1: 


OPTION = 

RETURN 

RETURN 

RETURN 



V. 




1 REM BEISPIEL 7 

2 REM 

3 REM 

4 REM 

10 GOTO 140 
20 REM 

30 REM ****** HAUPT PROGRAMM ******** 
40 REM 

50 ST=STICK(O f 

60 X~X+<ST=6) + { ST —7 ) + (ST~3)-(5T=9)- 
(ST = 10 5-(ST-l1> 

70 Y=Y + ( ST= 13 > + (ST=9) + <ST=5> ~(ST=6>- 
<5T=10)-C ST ~14) 

SO GOSUB 330 

85 IF PEEK(53279)=3 THEN POKE 764,12: 
RUN 

90 IF PADDLE fO) =228 THEN HO 
100 X=PADDLE(0) 

110 POKE. 53248 , X 
120 GOTO 50 
130 REM 

140 REM PMB--PL.AYER MISSILE BASIS 
ADRESSE PAGES(256 BYTES PER 

PAGE) 

150 REM 

160 POKE 704,40 

170 PMB=PEEKH06>-16 

180 POKE 54279,PMB 

190 PMBASE=PMB*256 

200 POKE 53277,3 

210 X=125:Y=100;YSAVE=100 

220 POKE 53256,0 

230 FÜR I=PMRASE+1024 TO PMBASE+I280 l 
POKE I,0:NEXT I 
240 RESTORE 210:CNT=0 
250 FÜR I=PMBASE+1024+Y TO PMBASE+ 

1280 

260 READ B:IF B=0 THEW 310 
270 CNT=CNT +1 
280 POKE I,B 
290 MEXT I 

300 DATA 8,60,126,195,126,60,24,126, 

165 , 0 t O 

310 POKE 559,62 
320 GOTO 50 
330 REM 

340 REM ***** HOCH UND RUNTER***** 

350 IF YSAVE=Y THEN RETURN 
360 IF YSAVE<Y THEN 430 
370 RESTORE 210 
380 FOR 1=1 TO CNT 
390 READ B 

400 POKE PMBASE +■ 1024 +Y +1,B 
410 NEXT I 

420 YSAVE=Y:P0KE PMBASE+1Q24+Y+CNT+1, 
O:RETURN 
430 RESTORE 210 
440 FOR 1=1 TO CNT 
450 READ B 

460 POKE PMBASEH024 + Y + I-1, B 
470 NEXT I 

480 YSAVE=Y:P0KE PMBASE+1024+Y-l.O: 
RETURN * 


1 

2 

3 

4 
IO 
20 

30 

40 

50 

<60 

70 

SO 

90 


100 
I 10 
120 


130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 


REM BEISPIEL 8 

REM 

REM 

REM 

GOTO 30 

FOR I“PMEASE + 1024 TO PMBASE+1 
PQKE I,0:NEXT I; RETURN 
GOSUB 200:REM DRAW MOUNTAINS 
DIM EsM60) 

GOSUB 300;REM ZEICHNE STERNE 


>36: 


710,0:POKE 


~712,0:P0KE 


704, 


PÜKE 
1 23 

GOSUB 380:REM SETUP PLAYERS 
POKE 204,A + 4:POKE 203,0:P0KE 205, 
120 

Ei*i( 1,60) = "hhhJHtO:i{K> £ 1CBM1K1H> 
10JKHHPwIhJHEOICKM @SELL@1KHIS1K 
{H >{H J Pw 3 h J H C O 3{g}E FM%M{M > 3 ^ 

i , J CP3 hJ L03 EQ> Ef3I, > EP3C. J 

t y y ** 

r£m f^OKE 53248,30 u 

REM ***NAIN LOÖP ********* , ^ 
SOUND 2,0,8,2:F0R V0L=1 TO 15 . 

step g.1:£q£jnd o, 25 , 4 ,vgl:sound 1 , 
13,4.V0L 

A=OSR(ADR(E«) ,STICK 10) > 

NEXT VOL 

FOR V0L=14 TO O STEP -O.i:SOUND O, 
25,4-VGL:SOUND 1,13,4,VOL 
A=Ü3R(ADR(ES),STICKIG)> 

. . 4*< j| 0 ■ r 

IF PEEK(53279)=3 TUEN POKE 764,12: 
RUM "D:£X5.9" 
fsQTn iio 

- PLOT HINTERGRUND***** 

8+16:RbSTORE 260 


REM ***# 
GRAPHICS 
COLOR 1 
READ X,Y 
READ X Y 
DRAWTÜ X 
DATA O,137 
57. 157 f 57 


PLOT X,Y 

IF X >900 TUEN 

Y+lüSGQTO 240 


RETURN 


27,166.39,166,49,166, 
58 \69, 153^74,164J87, 



290 

300 

310 

320 

330 

340 


350 


360 

370 

380 

390 

400 

410 

420 


89 


. w v+ * -L 1. 

rj v * 305 - / 6 

DATA 310,63,999,999 
REM **** STERNE ***) 


***** 

TRAP 370 
RESTORE 340 

READ X.YJPLOT X,Y:GOTO 330 „ 

DATA 24.5.8,9,10,13,43,^4,65,7,^ 
23,66, l2ä, ^5j! 3Ö0, &7,501^65’ 246,34 
234,4^,261,68,241,133,123,55,67, 

DATA 12,64,75,58,119,10,133,43.4, 
65,7,93» 205,66,12,45 . i 78,67,145, 
65{4ä,34,18),4^,1^3,&8,2l,133,243 

^*5 1 i A /A 

DA+A 1^3,5,156 t 7,213,8,295,12,296 
34.^294,56, £30, 230,6 J 78,9 

rIm **** SETUP SPIELER **** 

A=PEEK(106)-40:POKE 54279,A 5 
PMBASE=A*256 

GOSUB 20:REM CLEAR PM ZONE ^ 

POKE 53277,3:REM TURN ON PM DMA 
2=20:REM INITIAL Y POSITION VOM 


j 


i 


SCHIFF 

430 X=150:REM INITIAL X POSITION VOM 
SCHIFF 

440 POKE 33248,X:POKE 53249,X:REM 

POSITION 3+! IP (PLAYERO) AND FLAME 
(Pl.AYERl : 

450 RESTORE 480 

460 FOR I-PMBASEM024+Z TO PMBA3E+ 

1280: READ SHAPE1IF SHAPEOO THEN 
POKE 1 ,SHAPE NEXT I 
470 POKE 623,1:REM SETZE PRIQRITAET 
480 DATA 8,60.126,195,126,60,24.126, 
165, 12$> ,96,0,0,0 
490 POKE 559,62 
500 RETURN * 






1 

*-> 

3 

4 

LT 

V 

B 

10 

20 

30 

40 

50 

*0 

70 


75 

SO 


90 
10O 
102 
104 
106 
1 10 
1 20 
125 
130 
140 
150 
160 
162 
165 
180 


iwn 
2000 
2010 
1 =5 

2020 


REM BEISPIEL 
REM 
REM 
REM 

FOR 1=1 TO 3: 

I 

GOTO 100 
D1M ES(60) 

E<S ( 1,60) =" hhh.JHEO] { K> E j v , /n^n| 
{QlKHHPwlhJHCOlIKl E 1E,J E 1KHCQJK 
CHlIHlPwlhJHIOKGl[FM%I*KM1 1 
i , > IPlhJ E03 tGl Ef M'AMEMJ U , > CP1l . J 

C J £ J 11 

A=PEEK<106)-16:POKE 54279.A:POKE 
—04.A + 4: POKE 203.0:PMBASE=A*256 
POKE 559,621POKE 53277.3:POKE 704, 


POKE 53247+1,0:NEXT 


]{ , 111KIH1 


53256,1 
PMBASE+1280: 

PMBASE+1127: 
I 


40:POKE £o 5,120:POKE 
FOR I=PMBASE+1Ö24 TO 
POKE I.OJNEXT I 
POR I=FMBASE+1100 TO 
READ BrPOKE I,B:NEXT 
DATA 8.60,126:195,126,60,24,126, 
165,129,0!90,90,66,36!36I24 24,24, 
0,24,60 ’126,255 126,60,24,0 
POKE 53248.150 
A=USR < ADR(E®) ,STICK(0) ) : IF 
PEEK(53279!“3 THEN POKE 764,12: 
POKE 53256,OiRUN 
GOTO 80 
GRAPHICS 17 


«6J 

« 6 , 

« 6 ; 

#6; 

#6; 

#6; 

46 

«6 


DAS IST EIN BEISPIEL” 
WAS FALSCH GEMACHT 
WERDEN KANN WENN SIE” 
PLAYER/MISSILE DATA 
FALSCH EINGEBEN 


7 

FOR Q 1= 1 TO 3000:MEXT I:POKE 752,1 
GRAPHICS 7:POKE 712,148 
? “ BEWEGE SPIELER IN 2 SEITEN 
"PRESS OPTION TO START“ 

GOTO ,10 

REM ■**■*■** PLOT SCHATTEN *-!(■* 

CDLOR 1 
RESTÜRE 2100 

FOR N=1 TO 100: READ fCREAD Y 










REH BEISPIEL 10 

REM 

REM 

RE M 

FÖR 1 = 1 TÜ SIPOKE 53247 + 1»01 WEXT 
I:POKE 559,0: GOTO 4 . 

FOR I=PMBASE+512 TO PMBASE+1230I 
POKE I.OSNEXT i: RETURN „ r , TTniil 

GRAPHICS 01? :? :? " PRESS OPTION 
TO START" : POKE 752,1 iM „ m 
? 1? " PRESS SELECT FUER EINFACHE 
LINIE RESOLUTION PLAYER" 

? 1? " PRESS START FUER DOPPELTE 
LINIE RESOLUTION PLAYER" 

POKE 704,40 
PMB=PEEKI106)-16 
POKE 54279.PMB 
PMBASE*PMB*256 

POKE 53277,3IG0SUB 20:P0KE 559 f 34 
X=I251Y=1I0:YSAVE=100 

IF P P=5 < Th1n 9 P0KE 559,62:POKE 

53248.100 

IF P=6 THEN POKE 559,46:P0KE 

53245.100 

IF P=3 THEN POKE 764,12:RUN 
GOTO 150 

rIm SINGLE LINE RESOLUTION ******* 
* 

REM 

RESTORE 290:CNT=0 

FOR I=PMBASE+1024+Y TO PMBASE+ 

1230 

READ B:IF B=0 THEN 300 
CNT=CNT +1 
POKE I,B 
MEXT I 

DATA 124,214,214,254,124,63,63, 

204,0,0,0 
REH 

REM DOUBLE LINE RESOLUTION ****** 
REM 

RESTORE 290:CNT=0 _ 

FÜR I=PMBASE+512+Y TO PMBASE+640 

READ B:IF B=0 THEN 390 

CNT=CNT+1 

POKE I, B 

NEXT I 

GOTO 150 



1 R£M BEISPIEL 11 

2 ' 

3 FtM 

4 

10 FQf! 1 = 1 ICO EjPOKE 53247* 

I 1 liOTD ’Z d r» 

20 £cffl I -IFlMEÄSE* IX'24 TIJ PlflB 
POKE I.O:wEXT 1 : 

30 6fw MlML LfrTEP SETUP ttfl 

45 Ist*S h 'ittea£j t WJIMJH» 
_- FL ai_ i .:öRßW+G i 59.„ 


e : P OK t 53247* E f O; Mi-.T 

jE* 1024 TO 
:. ;■' T L r '* V ; UR j 
. /VfL I? Sth'JP HLH**jt 
i ])=3--': E SÜSPUKE 
IPQ&E 704,41:POKE 7ÖO, 


«Ui 


I 06! - i'.:: 


':f)RAUTG 139,57: 

GKE ? $4279 j ft: PQK.E 
, PMEfiäE=A*256 
bo :POKE Zo5,ilft: 


mmmmwmuihiiu 


5 3gF j'g t o 
0Ö5UB ,20 _ 

FÜR’I=PMBASE+1024+Y TQ PMBASE+ 
12091 READ B!IF BOO THEN POKE I,BI 

r!m T ***** data für pacmani ***** 

DATA 28,62.119,127,254.252,248, 
2527.254; 12$, 12&, 62 \ 28,0,0 

FÜR I=PMBASE+1536+Y TO PMBASE+ 

1792READ B: IF BOO THEN POKE I,B. 

r!m T ***** DATA FÜR PACMAN2 ****** 
DATA 28,62,113,255.255,255,255, 
255.126!126,62;28,O,0,O,O 
POKfe 55$,62’ 

REM ******HAUPT PROGRAMM** 

ppM 

!?-Hi c ¥AgÄ ! PSKI E 5AS??ä?AuN 

JExfTlfi7T5^ T ii?, :POKE »24B.X: 

P8kI pS18; S! g8^E J Si 2 58, B°- NE&T J 

GRAPHICS 17:POKE 712,69:PQKE 710, 

7^46i"HIER WERDEN DIE „ " 

7 465“SCHATTEN LEBENDIG 
? #6 “GEMACHT ZWISCHEN DEN 
7 46 "2 SPIELERN UND PAC 
T> tt/-k t “ MAN 

7 46 “NIMN DEN JOYSTICK " 

7 46\"UND SCHAUE SELBER^ 

FOR 1 = 1 TO 3000!NEKT I *. GOTO 40 
PÜKE 764,255 




1 

2 

3 

4 
10 

20 

30 

40 


45 

47 

50 

52 

55 

56 

57 

60 

70 

SO 

90 

J.OO 

.105 

110 

120 

130 

140 

145 

150 

160 

170 
180 
1 90 
200 
205 


220 
230 
240 

242 1 


5 

“ '—j 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

365 

370 


REM BEISPIEL 12 

REM 

REM 

REM 

FOR 1 = 1. TO SIPOKE 53247+1,01 NEXT 
IlGOTO 270 

FOR I =PMBASE+1024 TO PMBASE+I536: 
POKE I,0;WEXT i:RETURN 
REM **4**PLAYER SETUP *#*#* 
GRAPHICS 7:PÜKE 710,0:P0KE 712,69: 
POKE 704,4i:PÖKE 706,41iPOKE 559, 
62 

POKE 70S,103:P0KE 752,1:POKE 709, 
139:POKE'710,100 

CÖLOR IIFOR X=20 TO 150 STEP 30: 
PLOT X,61:PLOT X+l,6i:htEXT X 
COLOR 2:PLOT 1,57:DRAWT0 159,57: 
ERAWTO 159,66: DRAWTCJ 1,66:DRAWTQ 
1,57 ^ 

PLOT 157,57:DRAWTO 157,66:PLOT 

15S,57:DRAWTO 158,66 

COLOR 3:FOR 3=1 TO 4:FOR K=1 TO 5 

T=K+J*3C 

PLOT T,57:DRAWTO T.66INEXT K;NEXT 

A=PEEK(106)-32:POKE 54279,A:POKE 
2O4,A+4:P0KE 203.0:PMBASE=A*256 
POKE 53277,3:X=5Ö:POKE 205,120; 
POKE 53256 0:POKE 53250,150 
GOSUB 20 

RESTORE 120:Y=150:ERAX=-10 
FOR I=PMBASE+!024+Y TO PMEASE+ 
1280:READ B:1F B-999 TUEN 110 
POKE I, B S NEXT I 

REM **##* DATA FOR PACMAN1 #**#* 
DATA 28,62,119,127,254,252,248, 
252,254 127,126,62 28,999 
REStORE 160 

FOR I=PMBASE+1536+Y TO PMBASE+ 
1792:READ B1IF B=999 THEN 150 
POKE 1,13: NEXT I 

REM ###** DATA FOR PACMAN2 *##*## 
DATA 28,62,118,253,255,255,255, 
255,126,126,62,28,999 
POKE 559,62 
REM 

REM ***#«*HAUPT PROGRAMM«* 

REM 

POKE 5327S,I:REM CLEAR ALL 
COLISION LOCATIONS (SO TH£Y HOLD 
0 ’ S) 

ST=STICK(0) :S=PEEK(53279) 

IF 5=3 THEN POKE 764,12;RUN 
X=X +(ST=7)-(ST =11) !POKE 53243,X: 
POKE 53230,0:F0R J=i TO 50SNE&T 3 
IF PEEK(53252)<>0 THEN GOSUB 1000: 
GOTO 220 

IF X>220 THEN X=40 

POKE 53250,X:POKE 53240,0 

GOTO 220 

GRAPHICS 17:POKE 712,245 


#6 
#6 

«6 
&6 
«6 
«6 
46 
46 
FOR 


GOTO 30 


"WIR SEHEN UNS ÖIE 
"KÜLLISIONS REGISTER " 
"AN DER MAUER AN UND “ 
“DIE PRIORITAETEN 
"DER ANDEREN SCHATTEN“ 
"NIMM DEN JOYSTICK 
"UND LAUFE MIT DEM 
PACMAN REIN UND RAUS" 
i ”AUS DEM T UNNEL 
1=1 TO 2000:NEXT I 


1000 

1002 

mo4 

1005 

1006 

1007 

1008 

1009 

1010 
1015 
1020 

1030 


REM #*** COLLISIQN SOUND #*** 
COL=PEEK(53252) 

IF C0L=2 THEN 1055 
IF COLO! THEN 1030 
? " YUMMY ! 1 " : ^ 

FOR 1=200 TO O STEP -1:SOUND 0,1, 
10,8:NEXT i:? :? :? ’ 

COLOR 0:ERAX=ERAX+30:PLOT EKAX f 61' 
PLOT ERAX+1,61. 
x-x+s:pqke *— 

GOTO 1030 


324S,X:P0KE 53250,X 
SOUND 0,30,8,3 

FOR 1=1 TQ 30:NEXT I:SOUND 0,0,0, 
RETURN 


O 

POKE 




1 

2 

4 
i o 

20 

30 

40 


SO 

60 

70 

80 

90 


REM BEISPIEL 13 

REM 

REM 

REM 

liGOTü^O 8:P0KE 53247+1 f O;NEXT 

§l«PHrtl*?^gE| SETUP,**»* 

Jj^KE PO^t^lJPOKE 70&,41!Pi5KE 5Ä9J 



100 
i .10 

120 

130 


140 

150 

160 

165 

167 

168 

170 

130 

190 

200 

210 

220 

225 

230 

240 

250 

260 

270 

320 


S8i§B 5 i§ 5Ä:6 S PÖKE 53250,?§g 
F|r?^ M M0:Y T 150 

WEXT : I EAD S:IF THEt4 PÜKE + I,E! 

dIt^***?*?“^ 7 ! F °1 S 1 ? 2 ! 2 A k F o*** 

RgSto&E’iSQ 

t»rCMBASE+ 1 536+Y TO PMBASE+ 
next'i ead B:IF b<>0 then POKE I,B: 
5« *?■*** DATA FOR 2ND HALF «Hf-K-tf. 

psM8? i is? as o ?I^l°6 ? p6 

POK& 55* 62 ' * 5 i ' iö » 135, O , O, 0 

SCHATTEN*' iÖ BIT WEITER 
POKE 752,1 

? h ^====NIMM JOYSTICK ===== 

REM 

REM #*##*#HAUPT PROGRAMM*# 

REM 

ST=STICKiO>:S=PEEK<53279) 
^“X??ST-9f N (!~r h: ? , ?ä^jl 12 :r UN 

^VUzio'AU* 11 ’ : FÖKE S3248 > 


GOTO 200 
GRAPHICS 17 

Z ;;das naechste 

4tft 3 BEI SP I FI » 

FOR 1=1 TO 3000;HEXT I:GOTO 40 



GRAPHICS 2+16:SETCOLQR 4,5,5: 
POSITION 2,5:? #6:"INTERPII SS ION ": 

FOH 1=1 TOIOOO:HEXT I:POKE 559,0 

5 DIN X(4).M(19,7),DAT<19),PWR(?), 

6 DIM MO#(20), MIS (20),M2S(20) , 

M3SC20) , M456I20) -MX#320) ,M2SI22J , 

MGS(1001,PS(1281 

S XPN0=90:XPN1=I50:XPN2-75:XPM3=120I 
XPN4A=176:XPN4B=174:XPN4C=172: 
XPN4D=170:F0=24:F1=24:F2=44:F3=44; 

10 rIstgre 30010:für i=o to 7:read 

RD:PWR ! I)=RD:NEXT I 

11 FF(01=0:FF 111=24;FF(2)=24:FF(31 = 

44:FF(4)=44:FF(5)=44 

12 FOR 1=0 TG 19:F0R 3=0 10 7:M<I,J)= 
OlNEXT J:NEXT I 

13 FÜR 1=0 TO 4:X(I)=0:NEXT I 

14 FOR 1=0 TO 19:DAT(I1=0SHEXT I 

15 mc# (11 = 11 {11 11 : mc# (loo) = " {, y u : 

MC#(25 =MCS(i) :MOS="":M1S=“":M2S= 

" “: M3#=“ ,J : M4#="": mx#--" ": mzs=" c , l 

{I } { « 1 { , 1 -EI > i t > i i > I j M I J < L M L > ’ 

16 0^C=6:R!ÜlC=Ö:Cllc=Ö:MtBs7O10:OIPNl» 
7040:RAW=7070:CLS1=7090:TRAP MLB 

.19 GOTO 50 

20 IF LEN1MXS1O20 THEN RETURN 

21 IF PM<>5 THEN 23 

22 POKE PMBASE+383+F.0 

23 POKE PMBASE+51 H-F4-128* (PN-1) ,0 

24 FOR 1=0 TO 19 

26 NUM=ASC (MX# ( I-M.I-M ) > 

28 IF PNOS THEN 32 

30 POKE PMBASE + 384-!-I+F,NUM:GGT0 34 
32 POKE PMBASE+512+F+128*(PN-1)+1, 

NUN 

34 NUN=0 

35 NEXT I 

36 IF PN<>5 THEN 38 

37 POKE PMBASE + 384+I+F, 0 

38 POKE PMBA3E-5-5.12 + F + 1 28# (PN-1 1 +1,0 

3? RETURN , 

50 POKE 53248,O:POKE 53249,0:P0KE 

53250,OlPCKE 53251.0:POKE 53252,0: 
POKE 53253,0:POKE 53254,O:POKE 
53255,0 
GOTO 300 

REM -*■#* BLANK PLOT-ZERO MATRIX *** 

H 

POKE 87 ! S;P0KE 88,PO82:P0KE 89, 

pflQ? 

COLOR 1:FOR Y=0 TO I9:F0R X=1 TO 
8:PLOT X, Y;NEXT X;NEXT Y 
FOR 1=0 TO 19:FOR J=0 TO 7: M ( I , J 1 = 
o:NEXT j:next I 
RETURN 

REM *#* BLANK PLOT-ZERO MATRIX 

POKE 87,5:POKE 88,P882:P0KE 89, 
P892 

CGLOR 1:FOR Y=Ü TO 19:FOR X=1 TÜ 
3:PLOT X.YüNEXT XSNEXT Y 
^OR 1=0 TO 19IF0R 3=0 TO 7:M<I,J)= 
OlMEXT J LNEXT I 


59 
6 0 

62 

64 

65 

66 
70 

72 

74 

76 

7 Li 
80 
81 
82 
S3 
84 


ÜN PN GG5UB 
MOS=""1 GOTO 

M1S=.GOTO 

M2S=" 11 : GOTO 
M3S=" " ! GOTO 
M4S="":GOTO 


80,81,82,83, 

86 

86 

86 

86 

36 


84 



g|füRN :X,PN - 1,=0 
i"p8 e !8{fe E 9l?! 5 :$I R !$ , 8 
mxKmiSIgoto }8i 

MX|=H 2 * : G 0 T 0 101 
MX$=M3$;GOTO 101 
MXg=M4S:GOTO 101 
REM REBÜILD THE MATRIX 

< >2 0 THENRETURN 

pg X | 37,5:POKE S8,P382:POKE 39, 
Für J=0 TO 19 
IF M PN05 M THEN + il8 + i) 1 

ip R»ÄJSB»ÄäiWM2I?*Jf> 

FOR 1=0 TO 7 

1F 2 NUM<PWR(I) then m?j,i)=o:goto 

NEXT J 

1=255 

PLAYER TO CHAR 

F^FF(PM) 

POKE 532A6, XPMO : PQKE 53749 yphi 1 . 

POkI lllli’ 

®I i^fstfrS5g 4 iö7PgIaTgggg«85j 4 »’ 


CHAR 


’ Sgff 38SiöE RJ * Ä =PÖRE‘ J SSiÄi?RPS4B 

’ ®! ^?3^SEg 4 iörPgl2?Pgg|'85? 4D ’ 

; X^PN-1)=255 

n8B + .AT?J?:ÄI £ 0f § J=0 T0 ^M« 

1 +1 > =CHR$ (NUM) 

> LINE TO SCREEN 

‘ IP PN<>5 THEN 226 

pgp 

NUM=G 
NEXT 1 

S8sESxg?äg T SiA- 232 > 233 > 234, Z35 

M1S=MX*:RETURN 
Return 
£! 3f®i3 x * : Return 

r8tö$S* :return 

REM ******* SETUP ROUTINES ******* 
££S2 =PeEK t55P) 

™?or?t?64 7:re ' 1 set "-<"0 * 

POKE 712,BAK '■ 

8?Si8R^?s« < *fT s ^i#i < 

SpT E ? |P?!lg|ef DI,RESS AT R , 

l"£||? B «™ w B i H IuAg p 1 ?f s R 8l31° 

GRAPH?r? 7 P;^£, R l M 1 epABLE PM 

®e h aü, y?® M 2 Ä^r c 5gigg NEss 



360 

363 

370 


372 

374 

376 

377 


37S 

379 

330 

33.1 

382 

383 

384 

400 

401 
410 

420 


430 

440 

430 

454 

458 

462 

470 

474 

476 

473 

479 

480 
432 
484 
486 
437 


470 

300 

501 

502 

308 
310 
51 i 
5 J 2 

513 

514 


PMBASE+1Ö24: 
CLEAR OUT P/M 


RANDOM 


INVISABLE 

FOR I=PMBASE+384 TO 
POKE 1,0:NEXT I:REM 
AREA 

REM THXE IS TQ PREVENT 
TUNK, 

POKE 53256,QSPOKE 53260,181REM 
INITIAL S12E ÜF PLAYERS AND ALL 
INITIAL SXZE OF FLAYERS AND ALL 
MISSLES 

REM *** SET UP SPLIT SCREEN *** 
GRAPHICS 5: DL=PEEK 1560 ) +256* 

PEEK(561i 

PC 1 = 1331 PC2=193:PC3=246:PC4=01 
TEXT=40:POKE 708,0 
POKE 704,FCIIPOKE 705, PC2: POKE 
706,PC3:POKE 707,FC4:PGKE 712. 
TEXT:REM SET UP INITIAL COLORS OF 
PLAYERS 

PDL4=PEEK (DL + 4 ) : PDL5=PEEK (DL+5) 
1=1:RESTORE 30000 
READ A:IF A=0 THEN 400 
POKE tDL+I-1),A 


DL+4 , PDL.4 


87, 

1 

37. 


IF 1=5 THEN PÖKE 
I.F 1=6 THEN POKE BL+5;PDL5 
1=1*1:GOTO 380 
REM **** START OF MODES **** 

REM **** SCREEN DATA **** 

STARTi=PDL4+256*PDL5:REM START OF 
SCREEN DATA AREA 
START 2=ST ART 1+SQ1 P892-" 

INT (START2/25&) 1 P382=START2-P892* 
256:REM CALCULATE WHERE DATA FOR 
MODE 2 STARTS 

START3=5TART£+20*20:REM # BYTES 
IN SECGMD AREA 

P873=INT(START3/256):PS33=START3- 
P893*256:REM START OF MODE 3 DATA 
IN MEMORY „ „„„„ 

POKE 752.1: POKE 87,0:POKE 8S t P883! 
POKE S9.P893 

POKE 87IO:POKE 3B,PDL4:FÜKE 
PDL5:POSITION 0,11? #65"8 
PLAYER 0 PLAYER I." 

POKE 87,01POKE 88 3 P8831POKE 
P873:POKE 559,46 
POSITION 0,0:? #6; 11 PLAYER 2 

PLAYER 3' MTS/PL. #4" 

GOSUB 60 
x=1 :y=o 
GOSUB 7000 

POSITION 0,1017 4t6 | EDI TING NEW 
(N) OK OLD (L) DATA? J! 

POKE 764,255 
D=PEE1< (764) 

IF D=3S THEN 490 
IF D=0 THEN 487 
GOTO 480 

POSITION 0,10:? W6;"PREPARE TAPE 
OR DISK THEN ENTER L “IGGTO 

500 

GOSUB 3000 

REM ****** MAIN MOVE ROUTINE ***** 

POKE 559,46:POKE 764,255 

POKE 37,5:POKE 88,P882SPOKE 89, 

P892 

XX=0:YY=0:ao« 1 :NN=2 
:9=7EEK (76**) 

COLOR NN:F LOT XX+i.YY 

CULOR SS: PLOT XX+LYV 

IF PEEK153277) =3 THF.N GOSUB 3000 

1!- PEEK ( 53277) =6 TUEN GOSUB 200 




IF PEEK(53279)=5 THEN GOSUB 2000 
POKE 87,5:P0KE 38,P8G2:POKE■89, 
p 892 

IF D=255 AND STICK(Q)=I5 THEN 510 
IF D=6 AND XXOG THEN XX=XX-l: 

GOTO 750 

IF D=7 AND XX<>7 THEN XX=XX+1: 

GOTO 750 

AND YYOO THEN YY=YY-1: 

IF D=15 AND YY<>19 THEN YY=YY+i; 
GOTO 750 

IF D=58 THEN 7001 REM DRAW (D) 

IF D=42 THEN 710:REM ERASE iE) 
T1=STICK<0> : IF TTOiS THEN GOSUB 
800 

|F 0=18 THEN GOSUB 70:GOTO 548 
IF D=Ä2 THEN GOSUB 200:GOSUB 4100! 
REM SAUE CHANGE 

IF D=0 THEN GOSUB 600: REM LOAD 
CHANGE 

POKE 764 j 255 
GOTO 510 

REM INPUT DATA FROM TAPE AND DISK 
POKE 87,0:PQKE 88,P883:P0KE 89, 
P893 ’ 

POSITION 0.10:9 #61"INPUT FROM 
TAPE (T> GR DISK (£))? 

POSITION 0,11:? #65" 

POSITION O s 12:? «6;" 

":poke 

764,255 
D-PEEK(764) 

IF D=45 THEN GOTO 650;REM TAPE 
IF D-58 THEN GOTO 4600:REM DISK 
G 0 T O 610 

REM INPUT FROM TAPE 

TRAP OPNi:OPEN #1,4,O."C: H 

TRAP RAW:INPUT #i:P*:Ps="“ 

INPUT #1, MC»! TRAP CLSÜCLOSE #1 
TRAP MLB:MO*~MC*(1,20):M1*=MC*(21, 
40):M2*=MC*(41,60)5 M3*=MC*(61,80) 5 
M4*=MC*(81,100) 

FOR 1=0 TO 4:X<I>=0:NEXT I 
FOR 1=1 TO 20 

IF M0*(I,I)<>"{,J“ THEN X(0)=255 


650;REM TAPE 
4600:REM DISK 


IF MO*(I 
IF M1*(I 
IF M2¥(I 
IF M3*(I 
IF M4*(I 


I) < > " i 
1)<>"I 
ItOT 
I) < > " { 
!)<>"{ 


THEN 

THEN 

THEN 

THEN 

THEN 


X(0)=255 
X(1)=255 
X <2)=255 
X(3)=255 
X(4)=255 


SPOT 


NEX'f I 

GOSUB 300ö;ÜPN=255 
RETURN 

REM TURN ON SPOT 
00=2:NN=1 
MiYY,XX)=PWRtXXJ 
GOTO 510 

REM TURN OFF SPOT 
00=1:NN=2 
M(YY,XX)=0 
GOTO 510 

IF 00=2 THEN N(YY;XX)=PWR(XXJ: 
GOTO 548 

IF 00=1 THEN M(YY,XX)=0:GOT0 5' 
GOTO 549 
GRAPHICS O 

REM ROUTINE FOR MOUING PLAYERS 

rr=sTiCK(0 ):xi=o:yi=o 

IF TT =15 THEN RETURN 
IF TT« 14 THEN Yl=-i /' 

IF TT=7 THEN Xi = l ,/ 

,nl 


N(YY;XX)=PWR(XXJ : 

M(yy,xx)=o:goto 548 


A3: i. r l 
1 / 





SIS 

816 

817 

818 
320 
822 
824 
S26 
328 
829 

330 

331 

337 

338 

839 


840 

949 

850 

360 

870 

2000 

2010 

2020 

2030 


TF TT=1.3 THEN Yi = l 
IF TT=1I TUEN X1=-1 
FF(PN)=FF(PN)+Y1:F”FF(PN> 

0N PN GOTO 820,822,824.826,828 
MX3i=M0$: XF-'NO—X^NO+^C 1: GÖTO $37 
MXS=M1$:XPN1-XPN1+X1:GOTO 
MX$=M2$:XPN2=XPN2+Xi! GOTO 
MXS=M3$:XPN3=XPN3+X15 GOTO 
MX$=M4$:XPN4A=XPN4A+X1 
MX¥=M4SNXPN4E=XPN4B+X1 
XPN4C=XPN4C+X1 
|y!x$=M4*: XPN4D=XPN4D + X1 

P0KE 1 5324sf‘XFN0?P0KE 53249, XPN1 
53250 XPM2:POKE 

es-mL=:^3 7 VDhMA> oni/ 


837 

837 

837 


IGOTÜ 837 


53Z5U, ki-thz; rutst 532511XPN3 
53252,XPN4A:PÜKE 53253,XPN4B: 
53254|XPN4C;POKE 53255jXPN4DI 

° 1<? THEN GOSÜB 20: GOTO 810 


SXZE 


POKE 
POKE 
POKE 
GOTO 

IF YlOO 
GOTO 810 
NQXX—STICK(0) 

? NOXX 
GOTO 350 
REM SET PLAYER 
G nsi IB 7000 
POKE 87,0:POKE 88,P383:P0KE 89, 
P893 

POSITION 0,11:? *&6? " tPRESS 1 

COl,[13 QR [33 FÜR PLAYER SIZE 


THEN 2050 


AND P< >26 THEN 


PLAYER 


2040 POKE 764,255 
2050 P=PEEK(764):IF P=255 
2060 IF R=50 THEN U=0 
2062 IF P=31 THEN U=1 
2064 IF P=26 THEN 0=3 
2066 IF PC>50 AND P<>31 
2050 

2068 PÜKE 53255+PN,V 

2069 GOSUB 4000 
20"'0 RETURN 

3000 REM SELECT THE PLAYER TO EDIT 
3004 GOSUB 7000 _ ki 
3006 IF 0PNC6 THEN 3024,, 

3024 pBlir|oN T 5'“ENTER 

3030 A°PEEKf7Ä4?^i§^25p„THEN 3030 
3040 IF A=50 THEN PN-.UGUTO o056 
3042 IF A=3.1 THEN PN~2:GDTÜ 3056 
3044 IF A=30 THEN PN=3:G0T0 3056 
3046 IF A=26 THEN PN=4SGOTOi 3056 

3048 IF A=24 THEN PN=5:GQ10 3056 

3049 POKE 87,0:POKE 38,P863:POKE 39, 
P893 

3050 POSITION 5,10:? #6-TERROR ! 

INPUT 0,1,4,3, OR 4'':P0KE 764,255: 
GOTO 3030 

3056 IF X (PN-1K>0 

3062 GOSUB 4000 

3063 POKE 87,O:POKE 88,P883:P0Kh 89, 
P893 

3070 POSITION O.O:? " SPN“1 

3080 GOSUB 60:GOTO 3198 
3100 REM PUT IT UP 
3110 POSITION 0,0:2 
3120 SF PN : -ÜPN THEN 
3130 MX$="":num=q 

3140 GOSUB 60:GOSUB _ 

3193 x=i:y=o:xx=o:yy=o:d=255 
i bg RETURN 

4000 REM CLEAR MESSAGE LINES 


THEN GOTO 3100 


#65 "PS * J PH“1 
RETURN 

90:GOSUB 4000 



4002 

4004 

4010 

4020 


4050 

4052 


4054 
4 056 
4057 

4059 

4060 
4100 
4102 

4104 

4110 


POKE 752,1: PQKE 87,0:FÜKE 88,P883: 
FüKE 89,P893 
Position o,12:? # 6 ;" 

POSITION o, io:? #ä; ■' 

r ii 

POSITION O.11:? #65 2 

" :POKE 

REN'DISPLAY OPTIÜN-SELECT-START 
POKE 752,1:POKE 37,0!P0KE 88.P8S3: 
POKE 89,£393:POSITION 5.10:? 

#65"PRESS OPTION TO CHARGE # 

POSITION 5,11:? #6 5 ”PRESS SELECT 
FOR SIZE " 

POSITION 5,12:? #65"PRESS START 
FOR P/M " 

POKE 87,5;POKE 88,PS82:POKE 89, 

P892 

RETURN 

REM DISPLAY OPTION 

REM OUTPUT DATA TO TAPE AND DISK 

POKE S7,0:P0KE 88,P883:POKE 89, 

P893 

POSITION 0,10:? #6ä"OUTPUT TO 
TAPE tTJ OR DISK (D)? 

POSITION O, 11:? #6 5 " 


4170 POSITION 0,12:? #65" 


! POKE 


4130 

4140 

4150 

4160 

4200 

4220 

4224 


4230 

4240 

4242 

4243 

4244 

4248 

4249 
4300 
4370 


4330 

4340 

4344 

4346 

4349 

4600 

4604 

4610 

4620 


4621 

4622 


764,255 

D=P£EK(764) 

IF D=45 THEN GOTO 4200:REM TAPE 
IF D=53 THEN GOTO 4300:REM DISK 
GOTO 4130 

REM WEITE DATA TO TAPE 

FOR 1 = 1 TO 128: PS»(LEN (PS) +1) = '■ : 

NIHXT 1 

MC*< i 1 2Q>=M0i£:MC$M2i 

MC* < 3i!f8oT5«*i MC ®■ 61 . 80 >-M5* : 

m ^KH%f?p|i^9r==- 

? #15 MC* 

TRAP CLS1!CLOSE #1 

TRAP MLB:MC* (11 =*’ i , } " :MC* t 100) = “ 

i , >“:MC*(2)=MC*( 1) ’ 

GOSUB 4000 
RETURN 

REM SAVE TO DISK 

MC«!1 s 20i=M0«:MC*(21.40)«Mi*: 

MC*(41,60)=M2*:MC*(61,80)=M3*! 

MC*(3li100)=M4S 

TRAP DPMI!OPEN #1,8,0,“D: 

PMISDATA” « * * 

TRAP RAW:? #1}MC*!TRAP CLS1!CLOSE 
# l 

TRAP mle:MC*(1)="{,>":MC*<100)=" 
c, i ,! :mc*(2)=mc*(1) j 

GOSUB 4000 
RETURN 

REM INPUT FRON DISK 

trap ö opni:open #i,4,o,"B: 

TRAP RAW:INPUT #1,MC*:TRAP CLSi: 
CLOSE #1 

IS6 p ^Ü3is B i.ÖS*"^*( 1.20) : M1$=MC*(21, 
40) :M2*~MC*(41, 60) * M3*=MC*(61,80i l 
M4S=MC*(81,100) 

FOR 1=0 TO 4:X!Ii=0:NEXT I 

FOR L-1 TO 20 < 





4623 

4623 

4625 

4626 

4627 

4628 
4630 
4 670 
7000 
7002 

7004 


1F MO*(I,I)<>"{,>" 
IF Ml *«1 !)<>"(}■ 
IF M2® (I , I ) < >“ { , > ’■ 
IF M3®(I,I)<>"{ }" 
t. F M4* (I !!<>"{ }" 


THEN X (0)=255 
THEN X ! i >=255 
THEN X (2 J =255 
THEN X(3)=255 
THEN X 14)=255 


NEXT I 

GQSUB 3000:0PN-255 
RETURN 

REM CLEAR MESSAGE LINES 
POKE 87 f 0:P0KE 88,P8S3:PQKE 89, 
P 39 ^> ’ 

POSITION O, 10:? 463 '■ 


7006 POSITION 0,11:? 46;" 
7008 POSITION 0,12:? tt6? u 


7009 
70.! 0 
7012 


7013 
70 3.4 

7015 

7039 

7040 
7050 
7052 

7054 

7055 

7056 


7038 

7059 

7070 

7080 

7082 

7084 

7085 

7086 


7083 

7089 

7090 

7091 

7092 

7094 

7095 

7096 

7097 

7098 
8000 
8010 
8020 

S030 

8040 


REM TRAP 


“:POKE 


FÜR NON I/O 


GRAPHICS 01? "I’M TOTALL V 
CONFUSED. TURN ME OFF... TAKE A 
BREAK. . AND. . .START OVER! ‘‘ 

X n pör NOW. . . H 

4 85 S!G.* AND - 1,M MILL1Ne 

?oü Jüff Md i ?o y ^.^ on ' t do what 
ip JEi»R T PoA° 8 ^H E ®RÄÄ“™ 8 

0PC=0PC+1:CLOSE #1 
IF 0PC>3 THEN 7010 
ROK£ 9/,0;POKE 88,P883;POKE 89, 

fSI'KSK ifi 0 ’ 7 .* 61 " 1 CAN ' T 0PEN 
?88i T 5?8 g441iI.* 4, " PLEASe CHECK 

POSITION 3.12:? 

READ, IS THERE 1 


S,!,AgA? 5 $i" l F opeN p o R 

READ, IS THERE DA rA?" 

i=0 TO 1300;NEXT I 
&9^ ü § t ,?£°££ e0SUB ^000: RETURN 
’Hö p f :gR READ/WRITE ERROR 
RWC=RWC * 1:CLOSE #1 
ir- RWC>5 THEN 7010 
p gKE 87,0:80X8 88,P8831POKE 89, 

can * t 

better 

POSITION 5.11:? #6j u YÜtJ’D SETTER 

look at Yofe 1/0 Davide" 

FOR 1--0 TO 500: NEXT I 
ögSUB 300p:G°SUB 4000:RETURN 
^F£L£, R £ P , PCR CLOSE ERROR 

LL_t* — ul.L v 1 

I P ,£ L £>5 THEN 701.0 

gg&E «Y f O:POKE 88,P883;POKE 89, 

r 87 s 5 

wiihm bPßjtvi jysT tried 

better 

|=o vo soo:next i 

§|iF§ ? 188 °t 88 fPPol 7 f?& RETURN 

? MC*;?'"M0*;7 Ml*;? M2*;? M3*:? 

I T op °* ,xm,x,:a,tX(3, ' x<0 


20080 DATA 112,112.112,66,64,156,2,10, 

i-n» io> io, 16 , iö, 16 , io! io, io, 

10 . 10 , 10 , 10 ,io;loj 10 j 10 j 2 ,*, 2 ;z.Ä, 


* JIVj 1 U- A XJ 

20090 dAtA 2,2.2,2,2 

ri a a ? 5 *-i 5 < S < 



sooSK 8§-JS !il; fil;?i 1:11:11:111;Sr?*? 

$,i8;18;i8:l8;i8:i8;i8:l?4&i?4, 

ä8 ("l , 8ÄT8 f4i; i*fsl; ?4?i; ä?4; f ■ ° ° ° 





fr frfr* 
frfr 

frfrfrfr 

k 

fr* 

■SH-*-» 


frfrfrfr 
frfr frfr 
frfr frfr 
frfr ** 
fr* fr* 
fr fr** 


frfr fr* 
fr* fr* 
fr* fr* 
fr* fr* 
fr* fr* 
****** 


fr* fr* 
frfr* fr* 
****** 
****** 
fr* frfr* 
** fr* 


fr*** 

** ** 
** frfr 
fr* fr* 
frfr frfr 
frfr** 






1 

6 

3 

a 

ioo 
120 
1 2*5 
130 
140 
1 60 
1 00 
200 
220 
240 
260 
280 
320 

340 

400 

420 

440 

460 

480 

500 

520 

84Q 

560 

580 


OEM BETSPIEL 1 
REM 
REM 

P=iOO:D=10:0=2:GRAPHICS 


#6 
#6: 2 
#6:^ 

46 
#6 
«6 
46 
SA 
46 
46 


46; 

46; 

46; 

46; 

46; 

46; 

46; 

46; 

46; 

46; 

46; 


17 


[THE Isoundt CÜMMAND3 
" scrsen 9“ 

" CT=CTRL KEY" 

" Cp=incf-ease pitchl 
"C^tpsdect'ease 
” Id =increase 
■CT+td*decreas6 
" Iv=increase 

CTt[v=decreasB _ 

[spaoB^no soundl“ 

, “ I e=end □+ j ob 1 *’ 

POSITION 2,22:7 46;"sound 0,";Pi 
SOUND 0,P,D,V:e0T0 400 
POSITION 2,22!? 465"Sound 
0 

POKE 764,255 

IF PEEK<?64)=10 AND P< 255 _ 

IF PEEK1764I=138 AND P>0 THEN P=P-1: 
IF PEEK(764)=16 AND 0L15 THEN 0=0+11 
IF PEEK(764) = 144 AND 0>0 THEN 0=0-1! 
IF PEEK (7 64)=58 AND D<14 THEN 0=0 + 2: 
IF PEEK(764J=186 AND D>0 THEN D=D-2: 
IF PEEK(764)=33 THEN 340 
IP PEEK(764)=42 OR PEEK( 

GOTO 420 


pitchl 
5 ist. 1 
d ist. 3 
vol.3" 
vo1.3" 


o,o,o,o 


id; 


'; O; " * 

; SOUND 0. 


0 , 0 , 


THEN P=P+I!GOTO 320 
GOTO 320 
GOTO 320 
GOTO 320 
GOTO 320 
GOTO 320 


7 64)=28 THEN RUN 




ann 

aio 

320 

830 

940 

850 

860 

870 

830 

8°0 

900 

910 

920 

930 

940 

950 

960 
970 
930 
9 9Ö 
1 000 
103 0 
1 020 
1030 
1040 
1 050 
1 060 
1070 
1 100 
1110 
1 120 
1 130 
1 140 
1 3 50 
1160 
8000 
9000 


8:SETCOLOR 0,12,6:SETCOLOR 4, 
BLANKS(20):BLANKS=" 
i,io,a :sound 1,ui,10, 4 :sound 2, 


LW313 THEN DISPS=WORDSI 


REM BE I SP I EL.2 

GRARNICS 1S:SETCOLOR 2,4,81SETCQLOR 0, 12,6:SETCOLOR 4, 

ÖtM WORDS ( 20 ) , DI SPS (20) , BLANKS (20) : BLANKS=" 

“5 GOTO 300 

PGKF 540,HOL DISOUND O,UÜ , 10,81 SOUND 1.U1,1O,4:SOUND 2, 
92 j 1 0,4 : CoiJM C 3.V3.10 =) 

IR PE£k (540) :>0 Th£n lül 

SOUND 0,O,O,01SOUND 1,0,O,0:SOUND 2,0,O,0:SOUND 3,0,0, 
0:RETURN 

READ 00,01 ,V2,U3,HOLD,SWIICH,WORDS 
IR SWItCh=2 THEN WORDS=DISPS 
IR SWITCH=9 THEN 9000 

LW-LEN(WORDS):DISPS=BLANKS:IF LW313 THEN DISPS=WORDSI 
GOTO 380 

FP=1i-INT(Lw/2):DISPS(FP,FP>LW-1)=WORDS 
POSITION 0,41? «6J DISPS: GOSUB IQOlGOTÜ 300 
DATA 81,96, 1.21,162,39. 1 , SI CLENT NIGHT! 

DATA 72 92 144 144 29 O SILLENT NIGHT! 

CA^A 31,96 121, 162 59!O(SILENT I NIGHT! 

DA1A 96. 121 ,SlL193li19,6,SILENT NIGHT 
DATA 0,0,0,6,59.2,REST 

DATA 81,96, 121,162,39, 1,HO [ LY NIGHT! 

DA T A 72 72 144,144 29 O,HOELY NIGHT! 

DATA 31,96. 121; 162 5910!HOLY tNIGHT 3 
DATA 96l121,811193!119,0,HOLY NIGHT 
DATA O.Ö,0,0,5$,2,&EST 

DATA 5j,64 81.108 119. 1.ALL [IS CALM 3 
DATA 53,64,81'108,59,0,ALL IS [CALM! 

DA T A 64,31,108,12S,119,O,ALL IS CALM 
DATA 0,0.0 0.59,2,REST 

DATA 60,81 j 96, 121 , 119,0,ALL [IS BRIGHT! 

DAta 60,81,96,121159.0,ÄLL IS [BRIGHT! 

DATA 81,96;121,162,1I9 0.ALL IS BRIGHT 
DATA 0,4,0 C,5^.2.teT’ 

DATA 7^,91 12 1,144, 119, 1. , ROUND [ VON! 

DA T A 72,91 121:144159.O,ROUND YOM 

DATA 60,72,91,121,89,l.UIRIGINJ 
DATA 64,64 128, 128 - 29,0,UIRLGIN! 

DATA 72,71,121,144 59!0 UIRGIN 

DATA 81,96 121,162,89,1 MOETHER AND CHILD! 

DATA 72,72.. 144. 144,29 0, MOTHER LAND CHILD! 

DATA Bl ?6'121 162 59|0 MOTHER AND [CHILD! 

DATA 96’ 12l ,81’193’ 119,O,MOTHER AND CHILD 
DATA 0,6,0,6«5*.2,&EBT 

DATA 72: , 93 121,144, 1 19, 1 , HO [ LY INFANT SO! 

DATA 72 91 121i144159,6,HOLY [INFANT SO! 

DATA 60,72,95.121,89..0,HOLY INC FANT SO! 

DATA 64,64,128,128,29,6,HOLY INFANT [SO! 

DATA 72;71 121 144 59!0 HOLY INFANT SO 

DATA 81;96,!21,162,89!1 TENCDER AND MILD! 

DATA 72,77,144,144,29,0,TENDER [AND MILD! 

DATA Sl.96.121,162,59!o!TENDER AND [MILD! 

DATA 96,121,81,1931119,O,TENDER AND MILD 

DATA 0,0,0,0,59,2,REST 

DATA 53,64 8!,108 119,1.SLEEP CIN! 

DATA 53,64,81,103!59,O, SLEEP IN 

DATA 45,53,64,81,39,1,HEACUENLY PEACE! 

DATA 53,64,81,108.29.0,HEAUENELY PEACE! 

DATA 64,81 I lo£), 123.5$, ö, HEAVENLY [PEACE! 

DATA 60.81 : 96,121.l79’c! HEAUENLY PEACE 
DATA 47,60,81.96,119,0,HEAUENLY PEACE 
DATA 0,0,0,0,59,2,REST 
DATA 6Ö,,94.l£l!59.1.SLEEP CIN! 

DATA 31,96,121,162,59,0,SLEEP [IN! 

DATA 96,121,162,193,59,0,SLEEP IN 

DATA 83 ICQ! 12B: 162*89’l’lHEACVENLY PEACE! 

DATA 91.91.182,182.29,0,HEAUENCLY PEACE! 

DATA IO&,l£s.li2.2l7,o9 O.HEAUENLY [PEACE! 


81.96.121.162.39.1, HOELY NIGHT! 

72 72 144,144 29 O HOELY NIGHT! 

31.96, 121.! 162 5910!HOLY [NIGHT! 

96,121,81,193,119,O,HOLY NIGHT 
0,0,0,0,59,2,REST 

53.64 81.108 119.1.ALL CIS CALM! 
53,64,81'lOS!59,O,ALL IS [CALM! 

64,31,108,12S,119,O,ALL IS CALM 
0,0,0 0.59,2,REST 

60.81.96, 121,119,0.ALL [IS BRIGHT 3 
60,81,96,12l!59,0,ÄLL IS [BRIGHT! 

31,96;121,162,119 0,ALL IS BRIGHT 
0,0,0 0,59,2,REST 

7^,91 12 1,144, 119, 1,ROUND C YON! 

72,91 121!144159.O,ROUND YOM 

60.72.91.121.89.1. UIRIGINJ 

64.64 123,128-29,0,UIRCGIN! 

72,71,121 .(44 59 0 VIRGIN 

81,96 121 162,89 1 MOtTHER AND CHILD! 
72,72.. 144,144,29 0, MOTHER CAND CHILD! 
81!96' 121 162 59j OlMOTHER AND [CHILD! 
96’ 125,81'193' 119,O,MOTHER AND CHILD 
0,6,0,6.5*.2,&EBT 

72: , 9 3 121,144, 1 19, 1 , HOELY INFANT SOI 

72 91 121;144!59,0.HOLY CINFANT SO! 

60.7291. 1 2 1 , B9 .. O , HOLY INI FANT SO! 

6*1,64, 128, 128,29,6 , HOLY INFANT [SO! 
72:71 121 144 59!0 HOLY INFANT SO 

8.1 ; 96, ! 21,162,89! 1 TENCDER AND MILD! 
72,77,144,144,29,0,TENDER [AND MILD! 
81.96.121,162,59!o!TENDER AND [MILD! 
96,121,81,193!119,0,TENDER AND MILD 
0,0,0,0,59,2,REST 

53.64 8!,108 119,1 ,SLEEP CIN! 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


DATA O.GJO.O,Ü.9:END 
GRAPHICS 18:SETCOLOR 


2,4,8:SETCOLOR O,12,6:SETCQLOR 


9 109 
97 Of: 
in.'*':' 

3 QÜ35 


gpAAH I C 3 Ci POKE 7S3 , i : PoffE >10,43: 5 

y i , r. 

~^ L ~Jf /M fris 

7 /fiv 1 


32,2:POKE 201, 



■ 


I 


4 

10 

30 

34 

60 

70 

7T 


76 

100 

1 3 0 

120 

130 

140 

150 

160 

170 

130 

190 
200 
300 
33 0 

370 

33Ö 

335 

340 

350 

360 

400 

4 10 

420 

430 

440 

450 

460 

4" 7 C 

500 

5 1.0 

520 

530 

540 

550 


RFM BEISPIEL 2 

REM 

REM 

REM 

DIM TYPE*(40),M(50):GOTO 100 
POKE 540.WAIT 
JE PE£Kf540)<>0 THEN 52 
RETURN 


F0R_0FE=0 TO 3;SOUND QFF,0,O,O:NEXT OFF:RETURN 
LINt.=LEN1 TYPE®) :POSITION HÖR!WER 

FÜR MF=: Tü LINE:' 3 T YPE$ I ME, ME) J : IF TYPEÜä <ME , ME ) ® “ ” 

!HEN 76 

REM SOUND 0,25,4,6:FOR DECAY=6 TO 0 STEP -0.5:S0UND 0, 
10vO,BECAY:NEXT DFCAYECAY 
NEXT ME:RETURN 



°Ä6^=9'1 G0SU^2IÖ00': FOR X=1 TO 50JREAD IT: N (X) =it: NEXT 
5gPE$ s “ Al though there are p i tches 11 : HPR=6: VER=5: GOSUB 

XX£n£ = XG umb0! ~ ed + 0 thru 255, we need. 11 : H0R=3: VER=7: 

büSUB 70 

XX£6t~XS n 1 >' the onG ‘ s that corrsspond to" : H0R=3: VER=9: 
LiUbUB 70 

ää?5r;S':'§iS?* 6 3?^lu| 0 5 S r ' ite -‘HOR-SiVER-U! 

o6s0e = 7O pufc thi?5e spen i -f ic p i tc hes " : H0R=5: UER=13: 

XX£nS“XA nta arl arra y as ihown in the" : H0R=5: VER=15: 

oUoJ d 7O 

XX£F t t := XR£A£y£37^ T ^J-£t! ART -" : hor=9: ver=i7:gosub 70 

GÜSUB 20000:GOSUB 21000 
LIST 310 

R 0 R R r;i J9 scufor U=:1S T0 ° step -3:sound o f N<P),io,v: 

C-X1 vT NEXI P 

IF LINEC>310 THEN ? :LIST 330 

N^7lB?vT^T S ^ExFF7 R ^ i5 T0 0 STEP ”3! SOUND 0, 

IF LiNE—310 THEN 400 

eosuE = "’0 @ Cari nOW access these notes" : H0R=5: VER=13: 

IX p sS^.".U E X r,t 3 a 50 element array as shawn" : HOR-3: UER= 

15:aOSUE 70 

XXSSS^X 5 ’' th& FCR NEXT loops above.“*HÜR=5:VER«17: 
QOSUS 70 

LINE=310:G0SUB 22000 

IXEnS = XW e alEO rteed some way o-t tel i ing" : HÖR =5 : UER=5: 
uüoUS 70 

7TGalüB B 70?5ft5?S^?88 s J| 6g ld “t“ * not e .-:HQ H =3 : VER= 

TYPES>-" One wav i s io use ona □+ the counters" : HÜR=2: 
vEF<=y: gosub 70 

into ywr Computer.":HQR=9:VER=11üGOSUB 
1 ocat i on 540 contains a counter " : H0R=3: VER= 
TX?|§|yg h 3,§” = a; 4nta backwar-ds at th© rate u : H0R=3: VER= 

IslsrISS o^gBIOb 3 !!S8ä ■" : H0R “ 12: UER=17: SOSUB 70 

sTgoIuB * 70? GOSUB Io 30 "“ 1B " lled a JIFFY. " : HOR=3: VER= 
csn P oke &n Y rtumber o+ j if-F ies" : H0R=4! VER-7: 

W U b v 1? f ' V 

inttJ location 540, " : H0R=S: VER=9: 

GOSUB 70:GOSUB 50 

1 YP p ®=," ther I oop there unt.il that 1ocation":HQR=3:VER= 
1 1 , t'OoUB 70 

TYPES:= “ contai ns a zero. HÖR-.12 : VER=13: GOSUB 70: GOSUB 




600 

610 

620 
6 JO 

640 

650 

660 

700 

710 

y 9 o 

730 

740 

750 

760 

770 

300 

310 

820 

330 

840 

700 

910 

920 

93C 

940 

950 

960 

1 000 

20000 
200 IG 

20020 

20030 

20040 

20050 

21000 

21005 

21010 

21020 


deine often, H0R=6 : 9ER=5 : 
subroutine,":VER=?:GÜSUB 70: 


21040 

22000 

22010 

22015 

22020 

22030 

22040 

22050 


GOSUB 20000:GQSUR 21000 

TYPE , ¥="This is how fie turn on a note f or" : H0R=4: VER=5: 
GOSUB 70 

TYPE$="one secor.d H0R=15: VER=7 : GOSUB 70:GQSUB 50 
TYPE$=“(U Turn on a SOUND":HQR=3:9ER—9:GOSUB 70: 

GOSUB 50 

TYPE$= 11 ( 2 ) PÜKE 540,60“ : H0R=3:VER=li:G0SUB 70: GOSUB 
50 

TYPE$=M3i IF HEEK (540100 THEN PEEK AGAIN" : H0R=3 : UER= 
13:GOSUB 70:GOSUB 50 

TYPES="(4> LOCATION 540=0 SO TURN OFF SOUNDH0R=3I 
UER=15:GOSUB 70CG0SUB 50 
GOSUB 200001GOSUB 21000 
TYPE$=“9inee thia will be 
GOSUB 70:GOSUB 50 
TYPE$="we will use a WAIT 
GOSUB 50 

TYPE*="Fpr Exsraple. this program uses 11 : UER=9: GOSUB 70 
TYPE«="the variable WAIT as the numberVER=11:GOSUB 
70 

TYPE$="o-f jif-fisB ta PÜKE into location 540 ■ “ : H0R=2: 
0ER=13:G0SÜB 70:GOSUB 50 

TYPE$-~"We set WAIT=60 to wait one second":H0R=4:UER= 
15:GOSUB 70:GOSUB 50 

TYPE$="then GOSUB 50.":H0R=13:VER=l7:GOSUB 70 
GOSUB 20Ü001G0SUB 21000 

Tvpp$="Th;s is nur wait subroutineH0R=7:VER=5: 

GOSUB 70:GOSUB 50 

POKE 82,7:7 « "JLIST 50,54:POKE 82,2:2 " ":WAIT=120: 

GOSUB 56 , , _ „ 

TYPE 1 fe="And here is a subr-outine to tun n " : H0R=4 : VER=12: 
GOSUB 70 

TYPES="of-f all SOUNDS: H0R=.12: UER=i4: GOSUB 70:7 ; 

L T ST 60 

GOSUB 20000:GOSUB 21000 

TYPE'.S=’’In order to write a song in Bas i c , ": H0R=4: UER= 
5:GOSUB 70:WAIT=60:GOSUB 50 

TYPES="we can störe the NOTE numbers '* : HOR^ö : VER=7: 
GOSUB 70 

TYPE$= "and durations in DATA s tat einen ts . " : H0R=4 : UER=9: 
GOSUB 70:GOSUB 50 

TYPE*="We read the data, then let pur":H0R=6:VER=11! 
GOSUB 70 

TYPE$=“subi'Dutinss piay the muBjc as " : FiOR=6 ; VER= 13: 
GOSUB 70 

T YPES= ” d ernan b t r ated by later programs. •' : H0R=4: UER=15 : 
GOSUB 70 

POKE 201.10:7 "öpPElL OBENO"j:GOSUB 20000:RUN "D: 
MAJRMINR 1 

POSITION 2,20:P0KE 201,5:POKE 752,1 

2 , "£G5}£R}iRJ£R3{R}£R:KR}£R}{R)£R}ER>tRJ£R>{R}{R}£R} 

(RlCRifRlIRlCRllRJIRlTRMRJIRJlE) 11 
7 , " ■ Press E ST ART 1 to cor.tinue ! “ 

7 , "[Zl'RJCRMRHRHRNRHRKRHRHRHRMRURHRMR) 
£RHRHR}{RHRMRJ(R}{RHR){RHC}" 

IF PEEK(53279)<>6 THEN POKE 755,3:P0KE 755,2:GÜT0 
20040 

POKE 755,2:RETURN 

GRAPHICS OrSETCOLOR 2,9,O:SETCDLOR 4,9.0:SETCOLOR 1,9, 
12:POKE 752,i:PÜKE 32 2tPÜKE 33,39:POKE 201,11 
PAGE=PAÖE-i 1 

7 , "CGHRKR}£R}{R}{RJ{R>{R}{R!{R>{R)(RHRJ£R}EE}" 

7 ! E BASIC NUS IC 3 1 " 

7 ’ 11 tz } £ R J I R J { RltRl ER! £R1 CR 3 CR}£ C } " 

PÜKE 77,0:RETURN 

POSITION 2,191POKE 201,5:P0KE 752.1 

7 ■' CGl>{RHR>{R>£R}{R}?RMR>{Ri{R>{RJ£R>{R>tR>ER>{R> 

(RltRHRHRHRHRHRHRHRKRHEJ" 

7 , ” ! Press. [OPTION] to repeat ! ” 

7 Press E START 3 to continue ! “ 





?060 POKE 755,3:POKE 7S5,2:GGT'0 22040 



REM BEISPIEL 4 

PEM 

REM 

DIM TYPE*t40>,N(50):VO=0:VI=1:V2=2:V3«3:POKE 82,2:? -SPFEIL 

^ "OPFEIL CBfeNS" : GOTO 100 
0 TH EN 52 

FOP'QFF=0 TO 3:SOUND OFF,O,0,O1 HEXT OFF:RETURN 
[ rr r.j 'TYPi£$) : POSITION HÖR, UER -rwoc-as f me: mf ^ a 11 « 

trnR * TQ LIME.?? T YPE$ ( ME v flE ) 5 S IR TYPE® ( ME j * IE ) 

P§m N SOMND 0,25,4,6: FOR DECAY=*6 TO 0 STEP -0.5:SQUNI) 0, 

10 , O , DECAY : &EXT DEC AY 

18, 19.21.22.23 24 26,3^35, 

37 40,4^!. 4^.4X 5Ö , 53,57, oO , 64 , ö8,72.76 . 81,85 , Ti ^ v ? 9 3 
DAtA 102’lOÖjll4.121,128,136,144,153,162,173,182,193, 

PAGfe=17iQoi6B 2i000:F0R X=1 TO 50:READ IT:N(X)=IT: 

Typi$="U 5 ing the array wethod ma.k es i t " : HÜR—5: VER --6 . 

TYPeI="ooss i b 1 e to find the notes 0+ any 11 : HÖR—4 * VER -8 . 

TYPe 1=^CH0RD with a BASIC subrout i r,e H0R*6 : UER=10! 

GOSUB ?0 i W AI — tiO ? BOSUB —0 ^ n , unp = 4 " UER” 1 ? i 

i TYpi£« 6 =" Th i s way, we c an create a o or ** . nuK j.ä- 

: T YPtT- " r nt e chord by entering on ly one":HOR=4:VER=14: 

> TYFEl="number er the ROOT ad the chord . ' : HOR=4: VER= 16: 

, yyPP¥=^MÄJ ÜR^*CHORDsY i‘^HO rS 14 ; UER= 6 : GOSUB 70:G0SUB 50: 

; H?g?s8öaÄ x i;A?*if 

\ S?Mo^ 8^13 H STE^ it?i0U^D°Ö^XI,10.14IS0UND 1,N<X- 
1 4V^10,^:SÖDND 27N(X-7>,10,6i80ÜND 3JN(*-12),10 ,6 
) GO^UE iOlNEXT X n 

$ TYPE^=^MINOR CHORDS;":H0R=14:VER=6:GOSUB 70:60SUB 50: 

3 l8fcg 2 i^T|;lf;!§V2?38üK!Ä x i;?YS? ä 1 ’ N ‘ x “ 3 ’ ’ 10 ' s: 

\ Sp"Is|^i ä l5"i¥E? i l?80UND°Ä?Njx),10.i4:S0ygB 1,N<X- 
3) 10,6: SOUND 2 , N (X-7) , 10,6 : SöSiMD 3,NtX“12) ,10,6 

0 Gü8 UB 6 ü:NEXT X 
0 LTNE=260*.GOSUB 22000 

0 TYPES="C MAJOR":HOR=17:UER=6:GOSUB 70:G0SUB 50!? : 

LIoT 340 - : . .. _ . „ , L m n , 1. 1 « « i.i / ,1 , ir-i d. * cm iMn *? ~ 


xi4?:SOUND O,N(X),10,i4: SOUND 1jN(X-4),10,6: SOUND 2, 

N 1X-7) .10,6:SOUND 3.N(X-12) ,10,6 

’^ I K§lif2lo D YHi*';?Ypl*f 9 C MIWOR" : H0R=17: VER—12: GOSUB 
X=49?i8uND°Ö,N (X) f10?14:SOUND1,W(x-d),IO,6:SOUND 2, 

Ntx-7),10,6 :Sound 3,nix-12),10,6 

WAIT=6Ö:GÖSUB 50:GOSuB 60 

L X NE = 340 : GOSUB 22000 cnnwiv- ■ UER = 6: 

TYPES="Let’s go back to Standard SOUND ,HUK-3.vtK 0 

^?p'dsl= ""cosrnnsMids new to make a tompar 1 sori. " : H0R=3: \7ER- 

■3; GOSUB 70: GOSUB 50 , . ».uno-iiMicB-in 1 

yvpt!$= li Th» loweat nott we can gt?t usirig . HÖR— I* VER-IO- 

GOSUB 70 




840 
20000 
200 i C 

20020 

20030 

20040 

20050 

21000 

21005 

21010 

21020 
21025 
2 1 030 

21040 

22000 

22010 

22015 

220 20 
22030 

22040 

22050 

22060 


STÖRT ION 10 is pitch 255, a low B.":H0R=2: 
VER=i2:GOSUB 70;GOSUB 50 

JXPP¥ :i ’' S0UN:D UC. 255, 10 8" : HOR=12: VER=14: GOSUB 70: 

GOSUB 60:SOUND VO,255,10,3:GOSUB 50:G0SÜB 60 
GOSUB 200001GOSUB 21000 

these two soundsH0R=5;VER=6: 

GOSUB 70:GOSUB 50 

TYPEST"SOUND VO,255 5 10,8":HOR=12:VER=8:GOSUB 70:G0SUB 

SOUND 00,255,IO,8:GOSUB 50:GOSUB 60:G0SUB 50 
TYPE¥= SOUND VO,35,12,8”:H0R=12!VER=10:GOSUB 70:G0SUB 

SOUND yo,33,12,s:GOSUB 50:GOSUB 60:GQSUB 50 
TX R P«j;. ,1 ^7 an ® quality is di-f + erent but 11 : H0R=4 : VER= 
12# bübUB /U 

T4?lSSÜB h ?ofSSS8l ?ä TCH ,B the •— “™ b.-:hor-3:ver= 

?°n5äSB to:li?12J|SV§8 und’U 0?isil?0;s P0S 1T10N 12 - 10: 

G0|UB o 50:GOSUB ÖOiGOSUB 5 Q:Pg£iTIÖN 12,8:2 “SOUND VO, 

l?lJjäS N 5 8?4Äic.i äo?gosub U 56 33 ’ 12 ’ 8 3 ' :SOUND v0 ' 33 - 12 ’ 
POSITION 12 1 3:2^ , '[SgUND VO, 255, 10,81“: SOUND VO,255.10, 
EXPOSITION 12,10:? “ESOUND VI,$3,Ü2,8]"ISOUND 

60§UB 501GOSUB 60:LINE=570:GOSUB 22000 

TYPE*=" We cati get mach deeper BASS NOTES “: HOR=3: VER=6: 
bUSUB /O 

GOS0l = 7i?GOSUB°55 ION 12 tlw ‘ in 10 -“:HQR=5 :ver=8: 

EXAMPLE: n :H0R=14:VER=10:GOSUB 70:GOSUB 50 

öl 7 ’ 40 » 42 ’ 45 ’ 48 - b1 - 52 - 57 * 60 » 

|8li¥ Isr 1 2 ??2?? : *18fU 6 ö5° WeTii? ■ T8 e8a?I s p • I 1 

11?; oeca v: Nein- i!>e£ay : n£xt bÄss 
RESTORE 700f L INE=710: GOSUB 22000 

XX£53!''XI he ne,x 't prograin will demonstrate" : H0R=3: VER=6: 
oOoUH 70 

TYPE$= ,, a coraplete sang using t hese 1 ’: HOR-3: V£R=S : GOSUB 

s . Later ycu ui t I be gi ven 11 : H0R=3: VER= 10: 

TX F PSS.“,i -'rK a11 subroutine to add your own “ : H0R=3: VER= 
12:GOSUB 70 

and R)usic tn - H0R=3: VER=14: GOSUB 70: 

GOSUB 20000 
RUN ”D:KEYOFC" 

POSITION 2,20:POKE 201,5:POKE 752,1 

ER J- {R>E R>'R> C R J IR'{RJ {RJ1RJ C tR> { ' R “ tR}tR>{R><: R >tR} { R> 

X ’!!i'-,?C£f?,.|STARfl ta continue !“ 

£B>£ R >< R > f Rj ER! { R>{ R> 1RJ { R> ER>{ CJ " 

IFPgEK (53279*06 THEN POKE 755 S 3:P0KE 75S,2:G0T0 
POKE 755,2:RETURN 


“:H0R=3:VER= 


G R 0CÜXP s ^gi s ?TSSbP R ^§^!SÄSP T £9 L 9ß 4,9.0: SETCOLOR 1,' 
1:P0Ke S2,2’P0KE 83,39: POKE 201,8 

PhPc-PAGE+I 

[ R 5"t|^RHR>CRHR>tR3{fiHRHR>{RHR>{R}{RMR>{R}{Rf 

? , “ ' The ESOUND 1 CGüimand ! “ 

Z f 1 screen 8" iPAGEj" ! k 

^ R j^2^ R >t R >E R >tPJlR}ERMRJtRJERJ{Rl{«JER>ER){Rl{RJ 
POKE 77,6:RETURN 

POSITION 2,19IP0KE 201,5!POKE 752,1 

? , ! Press E0PTI0N3 to repeat ! 11 

X * :: UFegss ESTARTl to contirtue 1 “ 



REM BEISPIEL 5 

REM 

REM 

REM 

X, Y+l: DRAWTO X«, 

PLOT X- 1 , Y + 2: DRAWTO X+4,Y+2:PLOT X-1,Y+3!DRAWTO X+4,Y+ 

PLOT X. Y*-4: DRAWTO X+3,Y+4:PLQT X+l.Y+5:DRAWTO X+2,Y+5 

fb8 T HgLStrfö ! S§8?5ixrÄ6Ü?^g| T «P@-0 TO 3*SOUND OFF , 

? , ^ ,0 'p1eSS 0 ANY R KEY R T0 CQNTINUE. 11 5 : FQKE 764,255 
IF PEEK<7641=255 AND PEEK ( 53279 > =7 THEN 280 

GÜSUE 3SO^RETURN k ^^ CONTINUE."S!POKE 764,255 
ip PEEK(764)=255 AND PEEK(53279)=7 THEN 340 
RF TURM 

GRAPHICS 7ISETCOLOR 0.7.8:SETCOLOR 1,12,8:SETCOLOR 2, 

!aiBft s IIKfe? R 2 8:i6f6llST§'-?2o^Si^oT 2 o, 2 6:drawto 
^ 3gfe 2 $S&?TpE8l- i Ii.?§8?58 A if8' &>. za: PLOT 20 , A4: drauto 

1 4n 44‘ RFTIIRN 

COLÖR i:PL0T_X+3,Y+6:DRAWTO X+5,Y-i:PL0T X+7,Y+6: 

PL0T T Xi-2tYil: DRAWTO X +10 , Y +1: PLOT X+2,Y+4:DRAWTO X+10, 

GOSLMpGSO 1 : 1 ? THE C SCALE 1 ':? :? ,"CDE F 6 A B C* 

X=40:Y=47:Go£UB 160:FPR V0L=10 TP O STEP ~0.2:S0UND O, 

sit8^^St6Ss3i'!2&?P8S T 0oügi§ o tS o i u i T ^°i8?b?ioÄND o, 
^lö^TVöSlÖS YgfelP8i U 5p«?o TO O STEP -0.2: SOUND O, 
^^S?^=3k!G0SUB y iä6?F0R B y0L=10 TO 0 STEP -0.2:S0UND O, 

xiä0?t=35iG0SÜB V läÖ?F0R B V0L=10 TO O STEP -0.2:SOUND O, 

8.1.10. VOL:NEXT UOL:GÜSUB 140 n 

X=$0: ^'=32: GOSUB 160:F0R VÜL=10 TO O STEP -0.2! SOUND 0, 

72.10. U0L:NEXT VÜL.: GOSUB 140 ^ ^ 

X=löc!Y=29JGOSUB 160:F0R V0L=10 TO O STEP -0.2:S0UND 
O s 64,10, VOL : NEXT VÜL:GOSUB 140 r».eniiKm 

X =1l6:Y=26:GOSUB 160:F0R V0L=10 TO 0 STEP -0.2:S0UND 
0,60,10,V0L:N£XT VOL:GOSUB 140 
G O ^ n k ^ ä 0 

x4ÖIy= 47: GOSUB i60?F0ä ? VÖL=10 ToVsTF.p"-O. 2: SOUND O, 

121.10. VOLtNEXT VOL 

X=SO:Y=4l?G0SUB T 160?£0R V0L=10 TO O STEP -0.2:SOUND O, 

X=l00J Y=3^G0SUB°160:F0R V0L=10 TO O STEP -0.2: SOUND 
0,81, lö, VOLI NEXT VOLGOSUB 320 

soumd 0,121,10,3":? ,"sound i , 96, 10 ,8": ? , 
fl SOUND 2 81 10 8 11 

SOUND 0,121Jlojs:SOUND 1,96,10,9:SOUND 2,81,10,8: 

GOSUB 240 
i GOSUB 320 




1 REM BEISPIEL 6 

2 REM 


240 

1000 

1042 

1110 

1 140 

1220 

1250 

1260 

1300 


S?? 2 ; 93=3:04=4; 05=5: 06=0.2: Q8=8: 010=10:012= 
Q26=267029=29~ * ö 01.7=17: 019=19: 020=20: 022=22: 023=23: 

038=38:040=40:041=41:042=42:044=44:045=45-Q42= 
076i7O~l7l’=7?~ 53 ! 055=55 : QS7 =57: 060=60 : 064=64: 068=68! 

076=76:Q8Ö=80:081=81:035=85:091=91:095=95:096=96■0l02= 
Q154=l 08:0114=1iq: 0121 = 121:0122=i22:0130=13010138= 

07=i =178= 0255=255: 0256=256:0300=300:0764=764:8100=100: 

D IM 2AS(0100) :GOTO 150 
3L=PEEK(560)+PEEK(561)*0256 

§Ö = £E!|K ( ZL+S4 ) + PEEK ( ZL+05 ) *0256: FÜR ZW=81 TO LEN ( ZAS) ■ 
ZW-01 344+ * (ASC(ZA$ tzw > zw) >~032)*08):ZC=ZM+ZY*Q40+ZX+ ' 

™z1?R1St t ?u?'Äe?ÖI N zc+z ™ mo ’ PEEK 12T * ZR > : NSXT ZR: ZY = 

x203 R Y?0i PLOT X + 01 > Y; ßR A WTO X+02„Y:PLOT X,Y+Ql: DRAWTO 
X + 04* ?7|3’ V + Q2: DRAWT0 X + GK * Y + 02: PLOT X-01, Y+03: DRAWTO 
afe°Y+lä V+a4:DRAWT0 K+ 03 , Y+04:PLOT X+01,Y+Q5:DRAWTO X+ 
cho T LJ ^ 1 + S 4 AT _ @A 0 ^BS A H T0 X + Q4.Y+Q2: RETURN 

oP!,g8 E Bö^oIRE^ 0 6^?S E ¥8^ ;FOR 0FF “°° T0 a3!S ° UNB 

1 f t peek < $i!?4Sä 5 K li5D T feig ®1 i;* : ?8gg ??« ■ 
|etcolor q! : li JqsVsetcBiIür 1 04; IIJaiVpoKE 1 J-sl; ii! cqlor 

ES=;9 Y 1 ®20, 020: DRAWTO 0300,020: PLOT 020 (026 * DRAUITn 
03O6 P Q33 K20iQ32:DRAWT0 Ö300;032:PLOT’020;Q38n3RAWTÜ°’ 

chordP?öosuä D 04o7retuRm ,Q44:z><=s13:2y=;L25:2:a * =, ' basic 

t/OL: RETURN 0 T ° 00 STEP “06: SOUND 0O , P, 810,90L : NEXT 
S17:SETC0L0R G2,Q8 J 0i2:'2 #07:^ «S?-? 402'" 

2 C ll7- " 17 ,» Q ?i" 21 NUMBER-' : ?#07 * ö7 ’ 

™ MÄJORr' 1 = Cf) MAJ 0 R 3":? #07: ? #07}“ 2= 

Ff WQ M^ORI “ 5 " 3= [E MAJOR 3 H :2 #07:? #07}“ 4= 

9 _#07:? #075" 5= CF# MAJOR] 11 - ^ #07-2 #02-“ ä— 

TG MAJOR]“*? #07:? #87}" 7= eg# 6 ~ 

? #07:? #07!" 8= EQ U I T 3 “ ■P=010“GOSUR Rinn 

“4?,8i?d8?*t!M'4i¥ »bi, 

IF SC=Q8 THEN 30000 
IF GC <01 OR GC >7 THEN 210 

2800 B 08010N GC gosub 1000,1300, 1600,1900,2200,2500 t 
GOTO 150 

^§fo 3 SOUNf) P I^85 8 io 0 ^" B 01OO: X=S130: Y=Q44: GOSUB 050:? t 
0154: Y=0äl : : G0Su| Z Q5§ 55G0SUB «40 : P=S85: GOSUB Q100:X= 

iTi?Px?i §f ^ s8g0 ^ 0 ■“ 520 S0UND 2,72,1 °- 

SftS5S 6 IS S Ä?öl §?Ä s iS■i|=äiSfi^SSföf oSISb 040 
|?8?|2?86i68 8 ^?6§!üi 0 ^8:^t81§’ 01O > 02 =SOUND 02 , 072 , 

i8eNB # orf8i?i8ri ? ?zÄ^-e^:i^8rii§?^i5?ä843 B ' 



1430 

1520 

1550 

1560 


1 740 

1820 

1850 

1860 


R4C 

P = Q102: OOSÜ33 8100:X=8130:Y=Q44:GOSUB 050: ZA¥= "#” I ZX= 

817:ZY-Q44:GOSUB 040 

? , "510 SOUND 1,81.10,2": ZA#="G" : ZX=819: ZY=Q55:GOSUB 
940:P-QS1:GOSUB 8100 

X=0154:Y=Q35:GOSUB 050:? ,"520 SOUND 2,68,1O,2":ZA*= 
"A#“ :2X=822:ZY=855:G0SUB 040 

P=863 T GOSUB 0100:X=Q173:Y=032:GÜSUB 050! ZA$= " tf " : ZX= 

023:ZY=Q32;GOSUB 040 

ZAS“ U !3# + G+A8=D« MAJOR“ ;ZX=Q13:2Y=0i9.5: GOSUB 040 

SOUND 00,0102,0.10,02: SOUND 0 i , 031,010,02 ; SPUND 02,068, 

010,02'. GOSUB 060 ; GÜSUB 07O:RETURN 

ZA^= ,, THG E MAJOR CHORD"!ZX=812:ZY=875:GOSUB 040:? . 
"500 SOUND 0,96,10,2" I ZASS="E" : ZX=816: ZY=855: GOSUB 040 
P=096:GOSUB 0100:X=Q130;Y=S41:GÜSUB 050:? ,"510 SOUND 
i 76 10 2 11 r 

ZÄ$= , ‘G^ A :ZX=a019:ZY“055: GOSUB 040: P=076: GOSUB Q100:X= 

Q 154:Y=035:GOSUB 050 

ZA*="8":ZX=02O:ZY=Q3S:G0SUB 040:? ,"520 SOUND 2,64,10, 

2" :ZA<S~"B" : ZX=Q22:?:Y=Q5S:GQSUB 040 

P=Q64:GOSUB 0100:X—0178:Y=Q29:GOSUB 050 

ZA^— "E + 6S'(-B=E! MAJORZX=813:ZY=895:GOSUB Q40 

SOUND 00,096,010.02:SOUND Q l ,076,810,02:SOUND 02,064, 

810,E2:GOSUB 860:GOSUB 07O:RETURN 

ZASE="THE F MAJOR CHORD ZX=012 : ZY=Q75: GOSUB 040:? , 
"500 SOUND 0,91„10,2";ZAS=”F":ZX=Q16:ZY=055:GÜSUB S40 


2010 

2100 

2130 

2160 

2200 

2242 

2300 

2330 


2420 

2450 

2460 

2500 

2542 

2610 

2700 


2760 

2800 

2842 

2900 

2930 


m j. « j i w i w t i —vs; —j w * 'jwwww w-rv 

P=09i:GOSUB 0100:X-0130:Y=038:GOSUB 050:? ,"510 SOUND 
1 ?2 10 1:1:1 

zA<S=^'A" \ ZX=Q.t9; ZY = 055: GOSUB 040 1 P=Q72: GOSUB Q100:X= 
0154:Y=S32:GOSUB 050 

^ , "520 SOUND 2,60, 10,2“ :ZA@«"C" :ZX«Q22: ZY«Q55:6ÜSUB 
040:P=06O:GOSUB 0100 

X=01 78 : Y = Q26 : GOSUB 050 : ZAS=" F ä- A+C=F MAJOR":ZX=Q13: ZY= 
095:GOSUB 040 


040 

p= 085 : GOSUB S i 00 : x~a 130 : Y=S38: GOSUB 050 : ZAS="i*" : ZX= 
Q 17 :ZY=S 3 S:G 03 UB 040 

^ ,"510 SOUND 1 , 68 , 10 , 2 " : ZA!¥="A#" : ZX= 019 :ZY=Q 55 :eOSUB 
040:P=068:GOSUB 0100 

X--9 154: Y = S32: GOSUB 050 l Zft$= " # " : ZX=Q 20 : ZY= 032 ! GOSUB 
040 :? ,"520 SOUND 2 , 57 , 10 , 2 “ : ZAS= “ Cft l! : ZX--Q 22 : ZY= 055 : 
GOSUB $40 * J ’ 

P=957 : GOSUB 0100; X--S178I Y=826:GOSUB 050: ZA 95 = “ # " i ZX~ 
923:ZY=026:GOSUB 040 

Zfi$“’’Fit + A1*'(-C8=F# MAJOR" : ZX= 013 : ZY=095: GOSUB 040 


A- r*i — * s iiz. nru un ^ ri'ojrv £- i ■—w/ r J d ou-sui» w* r « 

"500 SOUND 0,31 . 10,2”: Z ASi= " 6 " ZX=816 ! ZY=055: GOSUB 040 
P==S81 : GOSIJB S.lOO:X=0i3O:Y®Q3S:GOSUB 050:? ,"510 SOUND 

zA§s~ s B"IZX=Q19:ZY=Q55:GÜSUB 040:P=064:GOSUB Q100:X= 
0154: Y==029: GOSUB 050 

? ,"520 SOUND 2,53,10,2":ZA$«"D":ZX=822:ZY=Q55!GOSUB 

040:P=053:GOSUB 0100 

X~0178:Y=823!GOSUB 050:ZA&="G+B+D=6 MAJOR":ZX=813:2Y= 
095:GOSUB 040 

SOUND SO,081,810,02:SOUND 01,864.010,02:SOUND 82,053, 
QIO,02:GOSUB 860SGOSUB 070:RETURN 

ZA¥="THE GSf MAJOR CHORD " : ZX=®12: ZY=Q75 : GOSUB Q4Q:? , 
^500 SOUND O,76,10,2":ZA¥="G«":ZX=S16:ZY®055:GOSUB 

P=Q76:GOSUB 8100:X=Q130:Y~035:GOSUB 050:ZA*=“#":ZX= 

017:ZY-Q35:GOSUB 940 

? ,"510 SOUND 1,60,10.2":ZA»="C":ZX=019:ZY=055!GOSUB 
840:P=Q60:GOSUB 0100 

X=8154:Y“826:GOSUB Qgo:? ,"520 SOUND 2,50,10,2":ZA*= 
"D#“:ZX“R22:ZY=Q55:GOSUB 040 


3020 

3050 

3060 

30000 


«OSUB Q1C0: X=Q178: Y=Q23: GOSUB 050: ZAS="#" : ZX= 

«■ AS- " GtMC-t-DW^Gtt MAJOR 1 ' :ZX--Q13:ZY=Q95: GOSUB 040 
™l2:36lul J l60EREtURN tV!D 0 1 ■ ^0 , Q10 , 92 : SOUND 02,050 
GRAPHICS 0:P0KE 752,i:P0KE 7i0,48:P0KE 82,2:POKE 201 



t 

* 



1 

2 

3 

a. 

5 

20 

27 

30 

32 

34 

35 
40 
45 
50 
55 
60 
65 
70 
/5 
80 
85 
90 
95 
99 

100 

102 

200 

10OO 
1 020 
1040 
1050 
1 060 
1070 
1080 
1090 
1 400 
1500 
1600 
1. 700 
1800 
2000 
2100 
2120 

2200 

2220 

30000 

30006 


REH 

REM 

REM 

REM 

REM 

DIM 


BE I SPIEL 7 

MAJOR CHORDS IN DISTORTION LEVEL. 12 BASS RANGE 
ALL PITCHES IN DISTORTION LEVEL 10 CLEAR SOUND 
FOUR TEXT COLORS USIN6 GRAPHICS MODE 18 
AS(8),ASS(8),BS(8),C$18),CSS (8), DS (8),DSS(8>, 


£S (8) s FS ( 8 ) , FSS(8) , GS(8) ,GSS <8> 

DIM Pl (13) f P2(13) ,P3(13) MCS(11) :MCS~"tMAJOR 
AS="A C44E ";ASS="A44 D F ’■ *.BS="B DH F44"i 


G ” : CSS="C*i 
DS^"D F44 A 
C ":FSS= M F44 


,GS=" G B 

D 


446 5 " 

A 


446; " 

A44 


#6 ; " 

B 

*3 

446; " 

C 


#6 ; " 

C44 

ö 

446; " 

D 


«6; " 

D44 

*3 

#6; " 

E 


446} " 

F 

? 

446; " 

F4t 

ö 

446 f " 

G 


446; " 

G44 

r» 

44*; " 

A 

FÜR WAIT 

= 1 


F GÖ" 
":ÜSS="D# G 
A44 C4f" 
":GSS="G# C 
"SMCS:RETURN 
"5 MCS:RETURN 
“;MCS:RETURN 
“;MCS:RETURN 
"j MCS:RETURN 
;; ; MCS: RETURN 
i 


CHORD] 
CS="C 


E 


Atr 

D44" 


ES="E G44 
GOTO 200 


B 


: FS="F 


MCS:RETURN 
MCS:RETURN 
MCS:RETURN 
MCS:RETURN 
MCS:RETURN 
MCS;RETURN 
.MCS:RETURN 

„„„ .. - TO 200:NEXT WAIT:RETURN 

DATA^75^60^5I^72 1 57,4S,67 > 55,45,63 ! ,51 ) 42,60,43,40,57, 

DAtA^1^033 J 4S > 37 ) 31 J 45 J 36 ) 30,42 ) 33 t 28 J 40 ) 3 1 ) 27,3 7 I 

R1 i p 2. p3:pi (chord)«pi: 

P2 (CHORD) =P2: P3 (CHORD) =P3: NEIXT CHORD 
FOR CHORD;! TO 13:GRAPHICS lSJPOKE 559 s 0:? #6 
OM CHORD GOSUB 35,40,45,50,55,60,65,“— " 

POKE 559,34;7 «6:7 44&;"’ sour.d 1, 

SOUND 1,Pl(CHORDt,12,4:GOSUB 99 
z tt*; 7 446^" sound 2, ";P2(CHORD) : 

SOUND 2 P2(CHORD>,12,ä:GOSUB 99 
2. saund 3, " : P3 ( CHORD i i 

SOUND 3,P3(CHORD),12,2:GOSUB 99 
EOF H0LD=1 TO 200!NE&T HOLE 
SOUND 1,0,0,O:SOUND 2,0,O f 0:SOUND 
7 S6: ? " ’ [press Start]" 

ÄEx? E !h ^ z79,<>6 THEN 1700 

GRAPHICS 13:7 446:? 446 : " C THE c 1 ear 3 sourid 11 

FÜR PITCH=255 TO O STEP -i:POSITIGN 3,4 
SETCOLÜR,0,PITCH,6:SETCOLÜR 3,PITCH+8»6!SETCOLOR 1, 
rITCH^4,ü 

7 #6;"SOUND 0,"iPITCHä" 10,V 
FOR V0LUME=14 TO O STEP -2!SOUND 
NEXT VOLUME:NEXT PITCH 

GRAPHICS 0:POKE 752,1:POKE 710,48:P0KE 
RUM 


!5,70 - 75,80.85,90,95 
" \ pUcHÖRD* J "Ii2|4" 

12 , 2 " 


12 , 2 " 


3,0,0,0 


O,PITCH,10,VOLUME: 

32,2:POKE 201, 





REM BEISPIEL 8 

REM 

REM 

REM 

DIM LINE®(40),N(50):UQ=0:Vl=i:V2=2SV3=3:GQTO 100 
SOUND VO,N(P)IlO.141GOTO 50 

PO=N(P):P1=N<CHGRD>:P2=N(CH0RD"4);P3=N(CH0RD-7J 

SOUND 00,PO,10,14:SOUND VI,PI, 10,6:SOUND V2,P2,10,6: 

SOUND V3 P3ll0 6 

POKE 540,WAIT 

IF PEEK <540)<>Q TUEN 52 

SOUND 00,0,0,0:RETURN 

FÜR 0FF=O TO 3;SOUND OFF,0,0.0:NEXT OFF:RETURN 
PO=N(P):P1=N(CH0RD}:P2=N (CHORD-4):P3=N(CHORD-7) 

FOR DECAY=S TO O STEP -I:SOUND VÖ,PO,10,DECAY:SOUND 
Vl^Pl,10,DECAY:SOUND V2„P2,IO,DECAY:SOUND V3,P3,10, 

NEXT'DECAY;RETURN 

?^ T ^^ ! 5^ 1 3i i ^A 1 2A i gL 1 9,21 A 22.23.24.26,27,29,31.33.35, 


WA I T=10:GGSUB 50 

READ LINES,CHORD,P,WAIT:? 

FOR ME=1 TQ 6;REAd P.WAIT; 

WAIT=30:GOSUB 50 

READ LINES,CHORD,P,WAIT : 7 

FOR ME = .1 TO ÖIREÄC P-WAIT; 

WAIT=IO:GOSUB 50 


ME:GOSUB 


:7 LINES:GOSUB 40 
GOSUB 30:NEXT me:GOSUB 

17 LINES:GOSUB 40 
GOSUB 30:NEXT MEIGOSUB 


READ LINES,CHORD,P,WAIT:? :? LINES:GOSUB 40 

FOR ME=1 TO 6:READ P,WAIT:G0SUB 3QSNEXT ME;GOSUB i 

WAIT=30:GOSUB 50 

READ LIMES,CHORD,P,WAIT:? :? LINES:GOSUB 40 

FOR ME=i TO 5:READ P,WAIT:GOSUB 30:NEXT ME 

READ CHORE,P,WAIT:GGSUB 40:G0SUB 60:WAIT=30:GOSUB 


1 . ii.., i , wn j. i . uu ‘tu.'ju^uu öv i. wi-\ j. i —*» GOSUB 
READ i.INES, CHORD.P, WAIT: ? :? LINES: GOSUB 40 
FOR ME=J JG 5:READ P,WAIT:GGSUB 30:NEXT ME 
RRAD CHORD, P.WAIT:GOSUB 40:GOSUB 60:WAIT=10:GOSUB 50 
READ LIMES’cftOED^P.WAIT:? :7 LINES:GOSUB 40 
READ P,WAIT:GGSUB 30 
READ CHORD,P,WAIT;GOSUB 40 
READ P ,WA IT: GGSUB 30 
READ CHORD, P.WAIT:GOSUB 40 
READ P,UAlt:60SUB 30 
READ CHORD,P.WAIT:GOSUB 40 

GOSUB 60 :WAlf=l 0 ;GOSUB 50 :FOR DECAY=i 5 TO O STEP - 0 . 5 : 
SOUND VO,N I 1 ) , 10 ,DECAY:NEXT DECAY 
GRAPHICS 18:? 86?? 86; H tmajor chorcis]" 

FOR ME=1TO 8:READ CHORD,P.LINES:POSITION ME*2 S 10-ME: 

^ #6!LINES:GOSUB 70:NEXT ME 

1 STEP “ 1 ■ READ CHORD,P„LINE®:POSITION ME* 
2iiO-ME:7 86;LINES:GOSUB 70:NEXT ME 

^ns T £p^S°?y B -,.ä 0 Ä P0SITI0N **{**:? ! 11 PRESS 11 

p GR T ^ECAY=15 10 0 STEP -O.s!SOUND VO,N(6),10,DECAY: 

WAIT-15:GOSUB 50:POSITION 10,11:? #65 "START" 
FOR t EECAY= 15 TO O STEP -Q,3:£oUNö VO s N (1) ,10,DECAY: 

SETCOLüR 6 PEEK ( 20 ) , 10 : IF PEEK ( 53279 )< >6 TH5N 600 
GRAPHICS lÖISETCOLOfe 0,1,10:SETCGLOR 1, 11,12:SETCQLDR 

■ J , Mr $ 1 A 


40:G0SUB 60:WAIT=10:GOSUB 50 
7 :7 LINE®:GOSUB 40 


STEP -0.5: 


SETCOLOR 


? 86 : ? 86 : ? 86 ; " 
RERUN" 

WA17=60;GOSUB 50 
? 86:7 86;" PRESS 


PRESS aptlon":? 


[Start 


CONTINUE" 





740 
7-50 
760 
900 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1 100 
1 1 10 
1120 
1 130 
1140 

I 150 
116C 

II 70 
1180 
1200 
1210 
1220 
1730 
1240 
1250 
1 260 
1270 
1 300 
1310 
1320 
1330 
1340 
1350 
1360 

1370 DATA 49137 1 c 

21000 GRAPHICS oiSETCOLÜR 2,9„O:SETCOLOR 

21040 POKE 77,O:RETURN 


IF PEEK(532791=3 THEN RUN 

^t£ e ^ 3279,=6 ™ 900 
RUN "D:BIRTHDAY.BAS" 

DATA doe a deer a female deer 

DATA > DRögöf ! sufc 15 ’ 33 ’ 

Mi gl' 3 * eg*g 2 tÄSö 3 ÖA^=t3 3 ftÄS 9 30 ’ 

Mi iEö 3 |*a|fegefe)|öLLiÄi'?^ii 30 ' 

Mi il • g°A3?fe 3 ?ö 1 ga£EöÄ 5 *iS- 1 =• 32 - 
Mi TEA 2 A , DRiNK , W2tH 3 i^*^f ) i i^f ) 

DATA tSa? 6 *?, 5 ,’ 3 £a J Sa 3 . 1 ,* 1 29, 15 , 28 a 

DA T A 


DATA 


30.37.30.33.45 

15.35.15.32.90 

30.33.30.30.45 

15.32.15.28.90 

15.30.15.44.28.90 

15.28.15.42.26.90 

15.26.15.49.25.90 


DATA 


49 

, 25 

, 15 

44 

28 

30 

42 

26 

30 

49 

25 

90 

49 

37 

C 

47 

35 

J D 

45 

33 

, E 

44 

32 

Jf 

42 

i 30 

J G 

40 

28 

Ja 

38 

, 26 

J B 

37 

, 25 

Je 

37 

J 25 


38 

J 26 

Jb 

40 

, 28 

J a 

42 

, 30 

g 

44 

32 

f 

45 

33 

Je 

47 

35 

d 


pök£°!o;U 7 OLOR 1 ' 9 ’ 
RJ{R>{RHIR}fRJ{R> 

RItRJ tR>{RJ{R>{RJ 






370 
360 
500 
510 
520 
530 
540 
550 
600 
610 
620 
630 
640 
650 
700 
710 
7 20 
730 
740 
750 
■^60 
-y'yo 
80 6 
810 
820 
830 
840 
850 
8000 
9000 

9100 

9200 

30000 

30006 


REH BEISPIEL 9 

REH 

REM 

REH 

GRAPHICS OIDIM NAME*(20):? :? "BIRTHDAY SONG PROGRAM: 

: ? "ENTER NAME: "js: INPUT NAME* 

DIM WORD* i 20) . DI SP* 120), BLANK* (20) t BLANK*-' 1 
”:GOTO 300 

POKE 540,HOLD:SOUND 0,00,10,8:SOUND 1,01,1O,4:SOUND 2, 
VZ,!0,4:SOUND 3,03,10,4 
IF PEEK t 540) < >0 THEN 101 

SOUND O,0,O, Ül SOUND 1,0,O,0:SOUND 2,O,O,O!SOUND 3,0,0, 
0:RETURN 

READ 00,VI.02,03,HOLD,SWITCH,WORD* 

IF SWITCH=3 THEN WORD*=NAME*:GOTO 360 
IF SWITCH=1 THEN GRAPHICS 18:G0T0 360 

IF SWITCH=9 THEN 9000 „ ___ 

LW=LEN(WORD*):DISP*=BLANK*:IF LW>18 THEN DISP*=WQRD*: 
GOTO 330 

FP=11-INT (LW/2) :DISP*1FP,FP+LW-1)=WORD* 

POSITION 0,4:? & 61 DISP*:GOSUB lOOlGOTO 300 
DATA 121,1^1,243,243,19,l s HAtPPY BIRTHDAY1 
DATA 121 121^243^243 igjo,HAPPY EBIRTHDAY1 
DATA 108,108) 217,217,39,0,HAPPY BIRTH E DAY 3 
DATA 121!121!2431243139I Ol HAPPY BIRTHDAY 
DATA 91,91,182,132,39,1)TOC Y0U1 
DATA 96;96!193,193179.0,TO YOU 
DATA 12i, lil ,243,2^3,19,1,HAEPPY BIRTHDAY 3 
DATA 121 121,243 243 19 O HAPPY EBIRTHDAY3 
DATA 108 10SJ217J217 39j0 HAPPY BIRTHEDAY3 

T1ATA 1 OF ’ IO, TO ’n’uAODV o r OTUHAV 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


121 121,243,243,19 
108,108,217,217,39 
12l!i2l!243I243!39 

91.91.182.182.39.1 
96;96!193,193!79,0 
121,121,243,243,19 
121 121)243 243 19 
108 108)217)217 39 
12l!121!243,243)39 

81.81.162.162.39.1 
91 91'182!182)79)0 
121,121,243,243,19 
121!121!243)243)19 
60,60,121,121,39,0 
72 72, 144)144 39 O 
91 91,182,182,39,1 

196!193)193)39!3 
108,108,217,217,79 


QlHAPPY BIRTHDAY 
TOE YOU1 
TO YOU 

1,HAEPPY BIRTHDAY 3 
O!HAPPY CBIRTHDAY] 
HÄPPY BIRTHEDAY3 
HAPPY BIRTHDAY 
DEAR 
NAME 
3,NAME 

HACPPY BIRTHDAY] 
HAPPY EBIRTHDAY] 


JL/n < n A W 5 i j Al / m fr 1 / 1 r r } I lintlt- 

DATA 0,0!0,Ol 19,3.NAME 

DATA 68,68:136,136,19,1,HAEPPY BIRTHDAY] 

DATA 68 68 136 136 19 O HAPPY EBIRTHDAY] 

DATA 72 72 144)144 39 O)HAPPY BIRTHEDAY] 

DATA 91 91 182 182 3?iO HAPPY BIRTHDAY 

DATA 81 96,12l)162)39!i:TO EYOU] 

DATA 91!121,144.182,79,O,TO YOU 
DATA 0,0,0,0.0.9.END 

GRAPHICS IS:SETCOLOR 2,4,8:SETCOLOR O,12,6!SETCOLOR 4, 
4,0 . 

POSITION 3,41? #6}"HAPPY BIRTHDAY“ 

FOR H0LD=1 TO 500:NEXT HOLD:GOTO 30000 

GRAPHICS 0:P0KE 752,1:POKE 710,48:P0KE 82,2:PGKE 201, 
RUN 





1 

2 

3 

4 

20 

40 

100 

101 

102 

300 

330 

340 

360 

370 

380 

600 


BEISPIEL 10 


18;SETCOLOR 2,4,3:SETCOLOR O,12,6:SETCOLOR 4, 
; BLANKO(20 > :BLANK«=" 

1,V1,10,4;SOUND 2, 


630 

DATA 

640 

DATA 

,650 

DATA 

660 

DATA 

670 

DATA 

680 

DATA 

690 

DATA 

700 

DATA 

710 

DATA, 

720 

DATA 

730 

DATA 

740 

DATA 

730 

DATA 

760 

DATA 

770 

DATA 

300 

DATA 

810 

DATA 

320 

D a T 4 
DATA 

830 

340 

DATA 

850 

DATA 

860 

DATA 

870 

DATA 

880 

DATA 

890 

DATA 

900 

DATA 

910 

DATA 

920 

DATA 

930 

DATA 

940 

data 

“50 

DATA 

960 

DATA 

9 _7 0 

DATA 

990 

DATA 

9 n 

DATA * 

i 000 

DATA 

1 0 .1 0 

Data 

J O?o 

1 Ö3Ö 

DATA 

DATA : 

1040 

DATA 

1050 

DATA . 

1060 

DATA ^ 

1070 

DATA i 

1 100 

DATA ; 

1110 

DATA ■ 

1 120 

DATA 

1130 

DATA 

1 140 

DATA 

1 150 

DATA 

1 160 

DATA 

8000 

DATA ' 

9000 

GRAPH 

9100 

PÖSIT 

9200 

FOR Hi 

30000 

GRAPH 

9 

30005 

RUN 


REM 
REM 
REM 
REM 

GRAPHICS 
4 O 

DtM W0RD«t20),DISP«!20) 

„ "JGOto 300 

POKE 540 HOLD:SOUND 0,00,10,8:SOUND 
V2 } 10,4;SOUND 3,03.10:4 
TF PEEK!540)<>0 TUEN 101 

SOUNDyO^O,O,0:SOUND 1,0,0,O:SOUND 2,O,0,0:SOUND 3,0,0, 

PSAD VO, VI.02.03,HOLD,SWITCH,WORD« 

IF SWITCH=2 THEN WÜRD&=DISP« 

1F SW I TCH=9 TIHEN 9000 
LW=LEN(WORDS):DISP«=BLANK¥:IF LW>18 
GOTO siSO 

ER?H;ÄirÄ L # / 3 , i9 I §££ <FP * pp+ i~w-i )-woRD* 

POSITION 0,4:? #6SDISP«:GOSUB 100:G0T0 300 
DATA 81,96,121,162,89,1,SIELEN! NIGHT1 
72 f ^2, 144,144,29,0 SICLENT NIGHT! 

81,96 s 121,162,59,0,SILENT [NIGHT! 

o’ 

8 


THEN DI3P$=W0RD«! 



g j6;*}4?4^i?ft^’ 6 ’ H0Lv ni ? ht 

53 | oLll 110l'5|!'6tÄLL l 'lS I fcflLMJ 1 
64,31,108,128,Il9j0,ALL IS CALM 
0,0,0,0,59,2,REST 

IS BRIGHT 

72,91,121,144,119,1.ROUND CY0N3 
72,91,121 144’59,0,ROUND YON 
60,72,91,121.&9.l.&IRtGIN! 

64,64,128,128,29,0,0IR[GIN 3 
72.71,121,144’59^0JVIRGIN 

^2,89,UMOETHER. AND CHILD! 


72,72 144 
Slj96|121 
96 
O 


144,29,0,MGTHER 

4*2:s?;o’mother 


LAND CHILD! 
AND ÜCHILD! 


I?ftllt'°’ M0THER flND CH!LD 

- 


60,72 91 


V ; J ' 6 i T 1 i Jt i i t 

64,64,128,12&, 
72 71 121’144 
81 96 121* 


„HGCLY INFANT SO! 
v , u, HQLY [INFANT SO! 

121,89,0, HÜL.Y INC FANT SÜ3 
29,0,HQLY INFANT 
59,0,HOLY INFANT 


. J9* O 5 TENDER' 
,59,0 TENDER 


[AND 

AND 


[SO! 

SO 

MILD! 

MILD! 

[MILD! 


72,7?;144 14 

S ; * ■, S J - 33 lil;? gi: 5 9 i i 1 - 1 l 1 tnjjc.n hiiu s.i’l±L.U 

e 6 B i<,;if^-^’ 6 ‘ TENBER MILB 

^4^31, i6s, 119,1, SLEEP_t.INI 


55' 


64 s 81,108:59,Ö.äLEEP IN 

64, Bi ,89, i ,?!EA[VENLY PEACE! 
53,64,81,108,29.Ö.HEAVENELY PEACE! 

1|)10S,128,59,6,HEAVENLY EFEACE3 
60,31 s 96,121, .179’o; HEAVENLY PEACE 
£7,60, ftEAVENLY PEACE 

9a°a? * 2 3 , 59 » PEST 

60,gl-?6,121,5 ? a 1,SLEEP CIN! 



Y PEACE! 

_ PEAC*~3 
7ENLY [PEACE3 


.QiSiOiOiOp? END 1 





1090 
! 100 
1110 
1 120 
11.30 
1 140 
1200 
1210 
1.220 
1230 
1240 
1245 
1250 
1260 
1270 
1 290 
1290 
1300 
1310 
1320 
1330 
1 340 
1350 
1360 
1370 
1330 
1390 
1400 
1410 
1420 
1430 
1440 
1 500 
1510 
1520 
1530 
1540 
1545 
1550 
1560 
1570 
1530 
1 590 
1600 
1610 
1 620 
1630 
1 640 
t 650 
3 660 
1670 
1680 
1700 
1710 
1720 
1730 
1740 
1 750 
2000 

2040 

2050 

2060 

2070 

2090 

2100 


8000 

9000 

9200 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


40.53 
40 53 

45.53 
53,64 
60 ’ 81 
0 , 6.0 
81,96 
47,47 
53 53 
60 60 
81,96 
0 , 0.0 
81 9o 
81,96 
81 96 

st “1 * .-i —* 


DATA 47,47 
DATA 53,53 
DATA 60,60 
DATA 72,91 
DATA 0,0,0 
DATA 72,91 
DATA 45 45 
DATA 47 47 
DATA 53,53 
DATA 64!31 
DATA 0.0.0 
DATA 40,47 
DATA 40,47 
DATA 45 45 
DATA 53 53 
DATA 47,60 
DATA 0.6,0 
DATA 81,96 
DATA 47,47 
DATA 53,53 
DATA 60,60 

n t a n i ' n 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

POKE 

POKE 


47 47 

Cj “jf * 

data 6oJ6o; 121 ;i 2 i; 19 ;o:* 

DATA 72 91’121,144179 1,BR1GHT 
DATA 0,0,O:0,9,2,REST 

DATA 72,91 121 144,9,1,WHAT FUN IT IS 
DATA 72; 91,121 !! 144119,0,* 

DATA 45,45 91,91,19,0,* 

DATA 47 47 19 O'* 

DATA 53 53 108,108,19 1,TQ RIDE AND SING 
DATA 40 33,64,81,19,Ol* 

DATA 40,53,64,81,19,0,* 

DATA 40 53 Ö4 31 29 0 * 

DATA 40,53; 64,81,9, i , A SL.EIGHING 
DATA 35 35 72 72 9,0 ^ 

DATA 40 53 64 81 19.0,t 

DATA 45,45 91191119 1,S0NG TQMIÜHT 

DATA 53,53 108,108,1910,* 

DATA 60,81!96, 121.79,0,* 

POKE 752,i:P0KE 559,62 l I=PEEK<106>-32:POKE 54279,1: 
POKE 623 33 

VTAB=PEE&(134)-t-PEGK(135>*256 
A TAB=PEEK(140)+PEEK<141)*256 
OFFS=1*256+1024-AT AB 
HI = INT (OFFS/256) : LO-ÜFFS-H1*256 
POKE VTAB-t-2,L0:P0KE VT AB+3. HI 

DI M MC« (42) S MC«="hh [ tE>L3'htIEJK3hEtE>N3hE tE>M6iN 3 
f. }[) 3t,JLtG>K£H>P{i J-f L3 30<F> ÜPtSMPoFL H.JEtSJKK. J" 
CLEAR-USR(ADR(MC«) ,ADR(PN« ? ,1024) :GOTO 10&00 
DATA 0,0,0,0.0,9,END 

POKE 20i;iO(? CHR« (125 ) , " MERRY CHRISTMAS":? . + 

Jerry White" 

FQR H0LD=0 TO 231 STEP 0.5:RDKE 704,HOLD:POKE 705, 


64,81,19,0,* 

64j8i;19 O * 

64,81,19,1,OPEN SLEIGH 
81 108,19,6,* 

96’12117910 * 

092 REST 

l£l!I&2,i9,1,DASHING THRU 
96,96,19,0,* 

103,108,i9;o, * 

121 121 19 1 THE SNQW 
121 162159,0* 

0 92 REST 

l2iJ1&2,9,1,IN A ONE HORSE 
121,162,910,* 

1211162119,6,* 

96,96,19.0* 

108,108,191l.OPEN SLEIGH 

i2i;121; 19 ,o;* 

121:144!79,o;* 
n P 2 Rt Q T 

i£lil44,19,l.OVER THE FIELDS 
91,91,19,0* 

96;96;i9 0 * 

108,lös,19;1,WE GO 
103 128 j_79; o; * 
n 97 RFST 
6Ö;6l;19,1,LAUGHING 
60,31,19,0 * 

91*91 , 19,1!ALL THE WAV 
108.108,19;O,* 

81,96,79,0 * 

0,9,2,REST 

121.162,19,l.BELLS GN BOB 


U 1 1 ? U - J. 6, J. ■ | Jk V m A | DILL u W 

47,47,96,96,19,0,* 
53,53,103,100,19.0,* 

60,60 121 121 19 1 TAILS 
81 96 121 162,79 Ü * 
0,0,0,0.9,2,REST 
8i,96;i2i:io2.19,1, MAK IN 1 


RING 


iälllo2.19,ljMAKING SPIRITS 
96,96,19,0 * 

108,168,19 O f * 




9300 

7500 

10000 

10003 

10004 

10005 

10006 

10007 

10008 

10009 

10010 
1.0070 

10030 

.10040 

10047 

10050 

10060 

10070 

10080 

10090 

1 1000 

20000 

30000 

30003 


HÜLD*S:POKE 706.HPLD+16;POKE 707.HÜLD+24:NEXT HOLD 
GQSUB 20000:POKE 53277,0:GOTO 30000 
times=times+i:for hold=i to 40:next hold:restore : 

GOTO 300 

PLL35! 1 , 1 ) ~CHR$ ( 32 > : PLL3i(2,2) =CHR$(112) : PLLSM3.3) = 

CHRä <24S) :PLL$< 4,4)=PLL$ (£.2) :PLL$(5,5)=PLL$<1,1) 

PLRsfH1,1)=CHR$i4) :FLR$(2,2)=CHR$(14)5 PLRSt3,3)= 
CHR$(31) :PLR$(4,4)=PLR$(2,2> : PLR$ (5,5) —PLR*l1, 1) 

FOR ME=70 TO 150 STEP 20:PM$(ME+256,ME*26Q)=PLR¥: 

PM$(ME+266.ME+27G)=PLL$ 

PM<¥ (MEH-5I2 ME + 516! =PLR$: PM$<ME + 522,ME+526> =PLL*:NEXT 
ME 

PM$<114,118)=PLR$:PMS(134,138)=PLR$:PM¥(154,158)-PLL« 
PMS(882!892)=PLL*:PMS(9021906)=PLL$:PMS(922,926)=PLR$ 
POKE 708,196:POKE 710,65!P0KE 712,14:P0KE 709,72:PQKE 
201,15:p6kE ÖS.OIPOKE S2,2:? !GOSOB 20000 
SOUND 0,0,0,0!POKE 53761 , 168:POKE 53763,164:POKE 
53765,164*POKE 53767,164 

POKE 765,1: POR X=2 TO 6: A=8*X+80 *. B= 11*-X : C=80-8*X 
COLOR i : PLOT 81 ? 9:PL0T A~ 16 , B-13: DRAWTO A,B:PLOT C--1, 
8+1 

POSITION C+16,E-13:XI0 18, #6 , i 2, O, " 5: " ^ ^ „ 

COLOR 2:PL0T A.BIDRAWTO A L i,B+l:PLOT C,B:DRAWTO 01„B+ 
1:DRAWTO C~1.B+1 

PLOT A,B+l:D&AWTO A+l.B+llNEXT X 

DRAWTO^ > l'oV79: DRASt0°70?7i: pBIiTION’ 76^k9Txi3' 18,4*6, 12, 

PSb^igf. p 9S^?«ö 2 ilV8I,?S;i; 5 l“TgR™tÄ 0 äl^?ägA§?ü ? 

75 l Q * 

DRÄWTÜ 80,1:DRAWTO 80,5:DRAWTO 76 ,91 PLOT 83,5!POKE 
201,13:POKE 53277,2 

POKfe 53.243, 102: PO&E 53249,116: POKE 53250, 132: POKE 
53251,146:&ETURM 

FOR ME=53248 TO 53251:POKE ME.0:NEXT ME:RETURN 
GRAPHICS 0:P0KE 752,1!POKE 710,4S:P0KE 82,2:P0KE 201, 

RUN 
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****** - 

**** 

** 

** 

****** ****** 

****** 

****** 

** 

** 

■fr* 

fr* 

** 
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** 

** 

** 

** 

** 
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*** 

** 

** 

** 

** 
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***** ** 

** 

***** 

****** 

** 

** 

** 


** 

**** 

** 

** 

** 

** 


****** 

** 

** 

** 


** 

** 

** 

** 

** 

** 

** 


** 

*** 

**** 

****** 

TTTT^Ht- 

** 

** 

****** ** 

** 

****** 

** 

** 


***** **** 

** 

** 

****** 

****** ** 

** ****** 

** 

** 



** 

** ** 

** 

** 

** 


** 

** *** 

** ** 


*** 

** 



** 

** ** 

** 

** 

** 


** 

** ****** ***** 

****** 
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** 

** 

** 


** 

** ****** ** 


****** 



** 
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** 

** 

** 


** 

#* ** 

*** ** 


** 

*** 



** 
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** 
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** ****** 

** 

** 




0 

100 


REM FILE PROGRAMM 
REM 

DIM DRIVE*t 3 > ,FILE*(12) ,DRIVEFILE*(15) ,RECORDS HO) , 
ANSWER*iU- - DIRECT0RY*(20> 7 REM DIMENSION 



S' 

TRINGS AND 

111 

REM 


120 

GRAPHICS 0: 


SET 

4ARGINS 

130 

POKE 

201,5: 


5 

SPACES AN 

1 40 

'P 


"TYPE 

.150 

7 

* 7 

, " (1) 

1 60 

7 

: ^ 

, " ( 2 ) 

1 70 

7 

: ^ 

t " ( 3) 

t 30 

7 

: 7 

;" (4) 

190 

7 

; ^ 

" (5) 

200 

7 

; 

, " (6 ) 

210 

7 

- 7 

" YOUR 


SECTÖR(20).BYTE(20) 
- - ARRAY5 


POKE 82,2:POKE 


83,39!REM CLEAR SCREEN AND 
IREN SET PRINT TAB WIDTH TO 


220 

230 

240 

250 

1000 

1010 

1020 

1030 

1040 

.1050 

1060 

1070 

1080 

1090 

1100 

1110 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

'prNTf; 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3090 

3100 

3110 

3120 

3130 

3140 

3200 

3210 

4000 

4010 

4020 

4030 

4040 

4050 

4060 


SETCQLOR 2,1 
COLOR 

OPTION NUMBER THEN PRESS RETURN" 

CREATE A DISK FILE":REM GOTO 1000 
READ A DISK FILE“ i REM GOTO 200(3 
ADD TO A DISK FILE":REM GOTO 3000 
UPDATE A DISK FILE"I REM GOTO 4000 
DISPLAY DISK DIRECTORY"1 REM GOTO 5000 
RUN MENU":REM GOTO 9140 
CHOICE"5:GOSUB 7000 

TRAP 8000: LINE=120: HIGHNUMBER=6:.NUMBER=VAL (ANSWER*) 

IF NUMBERCI OR NUMBER>6 THEN GOTO 3000 
ON NUMBER GOTO 1000,2000,3000,4000,5000,9140 

l!nE=6100:GOSUB 7100:TRAP 9100:GRAPHICS OLSETCOLÜR 2, 

?^?? E "CREATING tt " J Dftl^EFILi*i‘? e ?RECORD*'= H 1234567890" 
FOR DEMQ=1 TO 10 
? 41;RECORD* 

? “WRITING RECORD NUMBER "JDEMO 
NEXT DEMO 

? ;? "10 RECORD DEMO FILE CREATED" 

? ;? "CLOSING "j DRIVEFILE* 

CLOSE #1 
GOTO 6100 

lInE=6100:6QSUB 7100:TRAP 9100:GRAPHICS 0;SETCQLQR 2, 

Cllosü #2: OPEN #2,4,0,DRIVEFILE*:R£CNUM=O:LINE=61Q0 
INPUT «2.RECORD* 

RECNUM-RECNUM+1 „ 

"RECORD NUMBER “ S RECNUM; 

7 .RECORD* 

GOTO 2020 

LINE=3000:GOSUB 71001TRAP 9100:GRAPHICS OISETCOLOR 2, 

Cf.OSE «3: OPEN tt3,9,0, DRIVEFILE* 

Graphics o:? :? !"Ad£) record(S) Routine:" 

? : ? , "ENTER 10 iHARACER RECORD" _ „ 

7 :7 !“0R JUST PRESS RETURN TO EXIT":? :GOSUB 6000 
RECLE&=LEN<RECORD*) : IF RECLEN=0 THEN 3200 

IF RECLEN=10 THEN 3090 i i*. , . 

FÜR BLANK=RECLEN*.l TO 10:RECORD* (LEN(RECORDS)+1> = " : 

NEXT BLANK 

PRINT 431 RECORD* __ 

7 :? "PRESS START TO ENTER ANQTHER RECORD 
7 :? "PRESS OPTION FOR ÜTHER OPTIGNS..."j 
IF PEEK(53279)=6 THEN 3020 
IF PEEK(53279)=3 THEN 3200 
GOTO 3120 

: 7 "ADDING RECORD (S) TO DISK":CLOSE #3:G0T0 120 

REM 

LINE=4100:GOSUB 7100:TRAP 9100:GRAPHICS OiSETCOLOR 2, 

10,0 

CLOSE #4:0PEN 1+4,12,0, DRIVEEILE*: LI NE=410Q 

7 :7 ,,"CREATING INftEÄ“ :RECNUM=0 

NOTE feA.SECTOR.BYTE 

RECNUM=ftECNUM+l 1KJ 

SECTOR(RECNUM)=SECTOR:BYTE(RECNUM)=BYTE 

INPUT #4,RECORD*:? , ” RECORD “ S RECNUM, RECORD* 




■1 

■JOs^ 
4 t ÖO 

4 1 :o 

4 120 
4 • 30 
4140 
4150 
4200 
4210 
4220 
4230 
4240 

4230 

4260 

4270 

4280 

429Q 

4300 

4310 

4320 

4330 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

6000 

6010 

6020 

6100 

6110 

6120 

6130 

7000 

7010 

7100 

7110 

7120 

7130 

7140 

7150 

7200 

7210 

7220 

7230 

8000 

8010 

9000 

9010 

9020 

9100 

9110 

9120 


AND LAST 


? ■ sülg T SgS^ ! SECTOR ■" BYTE =" 5 BYTE 

RECMUM—RECNUM-1 

7 ! 7 "PRESS START TO UPDATE A RECORD" 

TrÜ "ilP?K^CORD W NUMBiR"li e |P^DA?lD^ S " OUTINE 

UPDATE-INT>UPDATE):IF UPDATE<1 OR UPDATE>RECNUM THEN 

| 8 ™T # 4 ;licoRD*V? D ?JI 4 UPDATE1 

8ei^gSSI§ ! tägK u J 3 g| C0RM 

NEXT B BLANK RECLENH ' 1 TÜ i0: RECORD®(LEN (RECORD*) +1) =» »; 
dSIÖT g4,SECTOR(UPDATE) -BYTE i UPDATE) 

60T0 T 41 l6 REC0RD$:? i? ^RECORD HAS BEEN UPDATED' 1 
REM 

^osPIJÄ p rÄMI YpApL ^ ,12 ’ 0:po ^ 201,8:? :5 

F0R S ALL 5 ENTRIES 5^Ö,0, D: : OPEN DISK DIRECTORY 

i^ p Ql„ tt ^DIR£CTORY® 

7 .DIRECTORY® 

Goto 5030 

EIPgRlisEiESßEL 764 ’ 255 ^“ REC0RD STRING 

INPUT RECORD®:RETURN 
REM 

ft[es ile=1 10 5;CL0SE «FILE1NEXT fileirem close all 

?8%??88§ ISolS P^ N T^BZ J l2m^ THEN 30 

REM 

CHARACTEr"InPUT 764 » 2 ^5=INPUT ANSWER®:RETURN :REM 1 
REM 

FILENA&E I! : MPUT C RbuTINfe Üj0:RESrf DRIVE KUMBER AND 
GOSÜb' 7000 DISK DRIVE NUMBER <1-4)“j:HIGHNUMBER=4: 

iF^ppi^rp g8S8IBy3 B fßiü A fe6§8 SWER * ,!TRAP 9100 

ERIuli7LEN : (DRI0ll) ( bf^i^^ VE * )+1,=ANSWER * 

TH^N 7200 L FILE NAMEU * : INPUT FIL.E®: IF LEN (FILE®) =0 

driDefile®<=driue® 

DRIUEFltLE® (LEN (DRIUEFILE®) +1) =FILE®! RETURN 

fcEI^ERROR^ROUTINE A WUMBER FR0M 1 ™RU " i HIGHNUMBER: 

?LInI) 9 ° 00: G0TÖ t-IN£:REM GO BACK TO LINE NUMBER 

7 CHR®1253) :REM RING ERROR BEL I 
FOR C0UMT=1 TO 300;NEXT COUNT^RETURN 

WAS E END 2 ÖF : FILE EEK(i95)Sl3ä THEN e0T0 e INE:REM ERROR 

occurred L then R end NUMBER AND LIN ^ which ERROR 

PEEK t i87)^256 ’ REE ^ 1195) j " AT LINE *’ > PEEK (186)+ 


9^8 ig * ä?giÄI s $Ä§?iyi 5 gggg 

O 1 t7A Dl in ^ 


9150 RUN 


752,i:poke 



REM 

REM [SET TEXT MODE, BLACK & WHITE, MARGINS, PRINTTAB WIDTH, NO 
CURSOR.l 

GRAPHICS 0:SETCQLQR 2,0,0:P0KE S2,2:P0KE 83,39:POKE 201,10:PQKE 

? r ^ FORMAT DISK ON DR.1":? :? “ PRESS START WHEN READY. 11 ! 

GOTO 80 

REM [STORE CURRENT SUCCESSFUL FORMATS*1 THEN SAY WHAT WE ARE UP 
TO. I 

f=f+i:? chr$U25>:? :? :? :? "Formatting disk «"sf 

TRAP 20O;XI0 254,ttl,0,O,“DI: .TRAP 40000:REM [SET BRIUEtt 8* START 

FDRMATTING 3 

POKE 66, 1:2 CHR«(253) :POKE 66,0:REM [RING THE BELL BUT NOT TOO 
LOUD ! 

? ."DISK FORMATTED":? :POKE 7?,0:REM [DISPLAY RESULT & KILL 
ATTRACT MODE! 

? " PRESS START TO FORMAT ANOTHER DISK":? " PRESS OPTION TO END 
THIS PRÜGRAM» 

IF PEEK (53279) *=6 THEN 40: REM INSTANT REPLAY. 

IF PEEK(53279)=3 THEN 300:REM THAT’S ALL FOLKS. 

GOTO 80!REM EWHATCHA WANT? pRESSA BUTTON!! 

REM CA TRAP TO LINE 200 WAS SET IN LINE 50 FOR UNFORMATTABLE 

DISKS! 

REM CABORT BY TAPPING THE BREAK KEY (IN MOST CASES)! 

REM C YOU MIGHT HAVE TO REMOVE THE DISK, THEN TURN THE DRIOE OFF & 
ON! ’ 

? CHR*(253):? ;? »I WAS UNABLE TO FORMAT THAT DISKETTE":? 
BAD=BAD+1!F=F-1:GOTO 70:REM [ONE LESS SUCCESSFUL FORMAT! 

? chrsu.25):? :? f; " disks formatted":? :? "ünable to Format 
"jjBADi" DISK(S)" 

REM [SAY WHAT WE ACCOMPLISHED THEN WAIT FOR THE USER TO PRESS A 
KEY! 

? :? " END OF PROGRAM FORMAT1":? I? " PRESS ANY KEY 

FOR MENU":POKE 7Ä4.255 

IF PEEK(764)=255 AND PEEK(53279)=7 THEN 330 
POKE 764,255:RUN 




FOR 2 fo’S8*READ : IT^P1JT 1 Öi 1U tt?mc!vI Y §'’ : G0T0 280 

WEXT l“ 0 

Ji ^0iS?^I?As iv J *s?f 

iPÖKE 75^°0 :eSd ,,;TO:CLÖSE #l:POKE 82,2:POKE 83,39:? 

Ei?i 7 iS^I!'°’!: 5 : 6 ’ 1Ä9,1 ‘ ,8 ' 141 ' 197 ' 2 - 96 ’ 255 ’ 2S5 .226. 


>«*?* 1 ?&§$$$*:1 ’MlktA* 7 :32 ■ 89 ■ 228 ■ 48 ■* • 32 - 

, 111 > 142 , 104 ' 14 • 1 : Stf 3 f iS!; is§; ?A|f f 6?f f s?fiAfgf . 
i SSASftVt§>§igöSt 8 iiS87äi?*ftS|:°:‘2?4Jg?4 16 *- 15S - 14 °.*. 

i 8 ;? ? ?»VöiaiS§Ä ? i!^?iV^ifißSRSgg'ggjJgji 201 • 

”i^4t 8 givPogi° 75 2, l: iF 

f^£S8Ä?? :? 5 “ N cl;EATINe 0 "- : ^S SE ^ 1; OPEN »1,8,0, 

gOSUB llo?GOTO N 350 STORE 2 °0:G06ub 13G:REST0RE 210: 
pnT T 2? E ^l2 0:60SUS 130 

“^sVSrI^SöpsstS 1 ^ö l=123+len «»> - 

1P PEEKC^641=2SS THEW 3?0 

RETURN 764> “ 43 THEN ? ' h Y“:BOOT830»1:POKE 764,255: 
RETURN^' 764 >=3H THEN ? "N'-JBOOTSSO^OIPOKE 764,255; 

s p ^lBlfrllBB^^s“=sg?8 § 6gi ?EEü ÄTgB e w r T0 

URITING L AUTORUN.SVS" Ne@PFEIL UNTEW@ ERROR WHILE 

'■ 1 E Ci?^¥=T &«’ 

m BHJ« 



0 

100 

120 


150 

160 

180 

200 

220 

230 
250 
300 
350 
300 
500 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1 070 
1080 
2000 
2010 

2020 

2030 

2040 


GRflPmCS^fpOKe'i-wfBlFOR 1=0 TO 72: READ AIPOKE 1536+ 

SI?HRJ!R}<R>l!><RiS R '< R >< RJiR>tR>tFmR> l R> l R> * C>1 '” 

W 1 :? i Vr^ t ! ä??JEPift K5i?f£gP“Jg|So 

DRiSe=INT (DRIVE) IIF* f)RIVE< I OR DRIVE.A THEN ? iT • 

P0Kp R 7§2 I lf7 N V ! 3 ? 11 ?fes?lN8 R iSo-i?18 rISolutions*:? 

plS II^ D irö8V?=Sl^ig^=pilK!! c 6^??Rlp EE K,i6i2,: 

!3 1 ^<?5 6 1f|)fg441fgg4?^Si l 5i;pPS( 1 Jl N RPM>|s4 AND RPM<2|1 
THEN ? I? "STABE DRIVE SPEED IS O.K. :PQK£ 710,178. 

POKE ll8 A 66:iF RPM< 285 THEN ? :? "STABSDRIVE SPEED IS 

'H? S -^iii 8 ?^il|f E Po^MlS8 Sß^START] TO RERUN" j 

IF pIeK t 53279)=3 ThIn POKE 82,21? "SOLEARS"!STOP 

REM°DATA FOR MACHINE LANGUAGE ROUTINE 
104.169.1.141.10,3.169,0 


169. i , J.HA . iy , iOT , 
11,11,5.141.4,3,l|?,5 
11,5,3.173.74,6,141,1 


141 
14. 

14.1,75,6 . 32, &Z, 2^3,206.73 
6.208,^4^, ll.9, i00, 141,73,6 


20 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 228,206, /i, &,/.us. £ 40 ,£V 
DATA 164j19,141,75,6,140,76,6,96 
REM 

REM THIS IS A MODIFIED 

REM 6 IN A THE MAY L llsi D ISSUE DF COMPUTE! 

REM WE WISH TO THANK BOB CHRISTIANSEN 

PIS M fie^&TSs I ffihV D ip T ¥Äfs TUTORIAL/UTILITY PACKASE. 


c,208,248,läV,1UU, 
l&9,0i133ll9,133,20.32,83, 
223;2*6,75,6.208.240,1^5,. 


VERSION ÜF THE RPMTEST PROGRAM 

MAGAZINE. 

FOR HIS 




100 
1 10 
120 
1 30 
140 
150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 


340 

350 

360 

T7Q 

380 

390 

400 

4 10 
4?0 
430 

4 40 
45C 
460 

4~?0 
480 
490 
500 
=: i 0 
520 
530 
540 
550 
560 
57Q 
5B0 


590 

600 

610 

620 


[DISPLAY SECTOR 


(CHARACTER FORMAT)3 
THEN ? 

** 


** 

";:GOTO 


REM 

GOTO 940 
REM 

REM ** 

REM 

FOR X=A TÜ B:iF SEC*(X,X)=CHRS(155) 

170 

7 SEC*(X.X)5 
NEXT x:RETURN 
REM 

REM ** [DISPLAY SECTOR (HEX FORMAT)] 

REM 

FOR X=A TO B:BYTE=ASC(SEC*(X,X)):HX=INT(BYTE/16)+1: 
HEX=BYTE-16*(HX-i)+1:HEX*(1,1)=HEXSTR*(HX,HX) 

HEX*(4,4)=HEXSTR*(HEX,HEX):? HEX*;:NEXT X!RETURN 
REM 

REM ** LEXAMINE DIRECTORY FILE] ** 

REM 

POKE 764 255:POKE 82,2:2 “SCLEARß"I2 "[S FN FILE 
EXT SSEC NSEC 3 * : 2 

POKE 779,1:FOR L00P=1 TO 3:POKE 778,104+LÜ0P:10= 

USR(ADR(CIO*)) 

FOR ENTRY=1 TO 8:STATE*=SECS(ENTRY*16-15,ENTRY*16-14) 
IF STATE*= ”[■>£,} " THEN 340 

IF STAT£*(i,i)="[ {,}]" THEN 2 “D "i:OOTO 320 
LOCK=ASC(STATE*(1,1)):LQCK=L0CK-INT(LOCK/64)*64:IF 
LOCK >=32 THEN 2 "L "; :GOTO 320 

« II « 

? 8*(LÖOP-1)+ENTRY-1; "ßTABß";SEC*(ENTRY*i6-1Q,ENTRY* 
16) s @TABß 11 ; * 

? ASC ! SEC* (ENTRY-K16-12) ) +256*ASC (SEC*(ENTRY*16“ 

*16-11) ) 5 "ßTABS" 5 ASC (SEC* (ENTRY*16-14) ) +256* 

ASC(SEC*(ENTRY*16-13) ) 

NEXT ENTRY:HEXT LOOP:GOTO 750 
REM 

REM ** [EXAMINE SECTOR] ** 

REM 
POKE 
-? " @ 

F C=1 THEN POKE 766,1 

”[BYTE# 00000000001111111111222222222233]" 
01234567890123456789012345678901]" 

11 " S : A=l:B=32: IF C = 1 THEN GOSUB 150:G0T0 430 

210 

2 :2 "[BYTE« 333333334444444444555555555566663 11 : 
234567890123456789012345678901233” 

" ” ; ■■ A=33:B=64; IF C = 1 THEN GOSUB ISOIGOTO 460 

GOSUB 210 

7 :? :2 :? “[BYTE# 666666777777777788888888889999993": 
456789012345678901234567890123453" 

„ "E : A=6b: B=96: IF C = 1 THEN GOSUB 150:G0T0 490 

210 

? :2 "[BYTE# 11111111111111111111111111113" 

999990000000000111.11111112222222 J “ 
678901234567890123456789012345673" 

5:A=97:B=i28:IF C=1 THEN GOSUB 150IG0T0 540 

210 

:GOTO 750 


PÖKE 764,255:GOSUB 820:POKE 82,1 

2 "SCLEARß[SECTOR NUMBER 3 ";NUM:2 : IQ=USR (ADR(CIO®)> 

E 


GOSUB 
6 »i 


^ n [ 

GOSUB 

•p ; •? 

6 11 i; 

? ” r 

O I* 

5ÜSUB 


POKE 766,0:? 

REM 

REM ** [EXAMINE FILE3 ** 

REM 

POKE 764.255:TRAP 580:2 “ßCLEARß":2 :2 _ 

FILENAME*;:INPUT USER*:FILE*«DRIUE*:FILE*(LEN(FILE*)+ 

TRÄP^ögo: close #i:open #i,4,o, file*:count=o:scoumt=o: 
POKE Zgl,10!POKE 82,3:POKfe &3!39:FLA8-1 
POKE 752,IIPOKE 766’0:2 "ßCLEARß":POKE i 
DEC VALÜE HEX UALUE CHAR3" 

GET #3. .BYTE;COUNT=COUNT+1:SCOUNT=SCOUNT+1:HX= 

INJf : hex=byte- 16* ( HX-1) +1: HEX* (11) = 

nt Ab J ) Ha • HX J 

HEX* < 4,4)=HEXSTR*(HEX,HEX):2 “ "SCOUNT,BYTE,HEX*(1, 


ENTER 


766,l:? "[BYTE 



630 

630 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

730 

790 

300 

310 

320 

330 

340 

850 

360 

370 

330 

390 

900 

910 

920 

930 

940 

950 

960 

970 

980 

330 

1 OÖÖ 
1010 
1020 
1030 
1 040 

1050 

1060 

1070 

1080 
109Q 
1 100 
1U0 
1 120 
1130 

1140 
1150 
1160 
1170 
1 ISO 


EENTER 1 
FOR HEXDUMP]";;PQKE 


1 190 
1200 
1210 
1220 
1210 
1240 
1 250 
1260 


l)iHEX*<4,4)^IF ( BYTE-153 THEN BYTE=32 

Gnrn C 610 T=26 THEN G0SUE 1230:SCÜUNT=0:GOTO 600 
REM " 

REM ** [TRAP ERRÜRS3 ** 

HEM 

"END 0F 5 FiLE l?? 3 := ^| E, 5^AgRi : iE n ?gR0R=136 THEN 2 ■? , 
750 ERR0R=17 ° ? * : ' ? * "FILE * NOT FQUND":? ;? ; GOTO 

IsÄ??’:2 RR G0 tÖ J 7 R 0° R; “ AT LIWE "! p ^EK(186)+PEEK(187)tf 
REM 

rIP ** 1TEMPORARY HALT] ** 

764^255 W 7 * 23:7 "tPRESS ANY KEY FOR QPTIÜNS3"J :PQKE 
1F PEEK(764)=255 THEN 760 
RETURN 

PQKE 764,255:GOTO 1040 
REM 

R|M ** [INPUT SECTOR NUMBER fc FORMAT] ** 
lNPUT 8 NU! : *t?TÄAP ” 40000 YFE SECT0R NUMBER E RETURN 3 " { : 
THRÜ^Ioj^ÖTO 820° ° R WUM>72 ° ™EN ? 

?64 ? 255 TYPE * F0R CHftR ACTER OR 2 

IR S LSI^KE^I§i 7 fHEft r c = l^i3¥§ Y llg 5 ™ EN 850 

^ F :bäf5 K lV° ™ "= 2iG °™ 118 

|p 

rIm ** EPROGRAM SETUP! 

C10S="h^SQ^f E }^ (128) ’ STAT E®f2) ,HEX* [5J ,HEXSTR¥( 16) : 

linkss @pfeie ° be ^" : 

poke \ &ec! r ?iä? \ lum&mkmmu■ m ■ L0W 

PükI 7p; RREM D DRf E E*i /256nREM HIGH EYTE 

REM S 7 ^0;S2:REM READ SECTOR (87=WRITE SECTOR) 

^Im ** IWHATCHA WANNA DO] -K--K- 

| R f8kI C |3°S9?^AGs8!pOK^ P 766 g 01 - 7:p 0^ 752,1: POKE 82, 
■iR>iR3‘{Ef“ CRKRMRMRMR1<R> ^ RJ{R>{RJtRJ iRi<R><RJ<R> 

7 i '%1 SK INSPECTOR I “ 

ff^cfii^l^l^llRlCRlfRJERJERJtRJERJfRJCRJCRMRjfRj 
^ : ff. 5 " JE type OPTION NUMBER3" 

1: 1= mm msßt* 

r .2 RUN^MENU" IL ' 

3Eci(lf 4)253:SEC$!1)= " SEC* (128)— '':3ECSä(2) = 

IF^LaItKEY=31 7 THeÄ ^240^ E ' T ^ EY::Z233 THEN 11A0 
IF LASTKEY=30 THEN 360 

IF LaItkIySpI ThIw pR!5I 7 52,0: GOTO 560 

POKE 764 E 255:2 T -^ W :STOP 201 » i0: GRAPHICS OIPOKE 752,1: 

GOTO 1130 
REM 

RFM ** CSTART 0R OPTION?] £* 

Iliß 1 ! si&fi S ^3 " iSIÄ 1 BGn° PT 1 ™ S START=C0NTINUE3-'i 

G0TD E !£43 327<?) ^ ™ RETURN 




